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ABSTRACT 


Current software design techniques are organized around either data transformation or 
stimulus-response control flow abstractions. Neither of these approaches apply to the flow 
of presentation and answer analysis that characterizes computer-aided instruction. This 
thesis introduces a new design abstraction, concept-flow, and technique that exploits it in 
the design of tutorial software. The design technique uses concept-flow diagrams, which 
highlight presentation of information and verification. of user comprehension. The 
technique is explained through application to a tutorial on the physics of underwater sound. 
The design and implementation of a prototype concept-flow interpreter are presented. This 
design technique and the associated interpreter allow for rapid construction of highly 
flexible computer-based tutorial strategies, useful for both traditional CAI applications and 


for more efficient help-sequence design in interactive systems. 
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1. INTRODUCTION 


A. THE PROBLEM 


More and more, instructors are using computers as instructional tools both in and out of the classroom 
environment. The use of a computer as an instructional tool is referred to as Computer-Aided Instruction 
(CAI), “a process in which the computer is actually the prime deliverer of the instruction... .” (Burke, 1982, 
p. 16) 


The educational promise of CAI lies in its ability to individualize and personalize the instructional 
process. CAI lessons can test as well as tutor by encouraging students to become active participants in 
their own learning. Students work at their own pace while the computer monitors their progress. 
Students are kept informed of their progress through intermediate response and achievement summaries. 
(Marks, 1981, p. 228) 


Current techniques for design of instructional software tend to produce computer-driven tutorials. The 
computer system drives the presentation of a specific topic and determines to what degree the presentation of 
that concept will occur even if the user already has a grasp of the concept. The computer presentauon of the 
lesson is an almost linear process; presentauon of the concepts is in a specific order with only limited or no 
deviauon to this order allowed. Thus, current techniques do not simulate the real-world teaching environment. 
In a real-world teaching environment, the teacher determines the level of student comprehension; the teacher 
determines when the student has difficulty understanding the concept and can therefore digress to a level of 
comprehension upon which to build and teach the concept; and the teacher determines when the student 
understands a concept, when not to continue dwelling on the concept at hand and when to move on to a new 
concept presentation. 

Current software design techniques do not allow for the proper representation of the concept-flow 
needed to simulate the real-world teaching environment in CAI. They aid in determining the contol flow, 
when to execute a process, and the data flow, how data is passed between processes, within the system. Both 
of these techniques are useful in the software engineering field but are not very helpful with CAI design. 
There is a need for a design technique that allows the user to drive the concept presentation. Therefore, we 


want to design a technique that allows for a closer simulation of the teacher-student interaction environment. 


B. THE NEEDS 


To simulate the real-world teacher-student environment, the computer system must determine and 
detect when the lesson plan needs adjustment to better suit the needs of the user. The program must make the 
determination, as does a teacher, based upon user response. There are two ways of making this determination: 
either the user explicitly claims no knowledge or the user specifically claims knowledge that requires 
verification Lo ensure expertise. 

If the user claims little or no knowledge of a concept, then presentation of the tutorial should 
automatically occur. Once the user initiates the program and begins demonstrating an understanding of 
concepts through task accomplishment, an actual explanation of a concept should occur only when the user 
demonstrates or claims unfamiliarity with that concept. When the user has trouble comprehending a concept, 
the program should backtrack unul alevel of comprehension is found. Basing the flow of the lesson upon this 
level of comprehension, the program then begins from this concept and moves forward. As Krendl suggests, 
this allows the novice user to benefit from structure, systematic presentation of material, and opportunity for 
practice. (Krendl, 1988, p. 371) 

"High aputude students are more likely to benefit when they can control the pace, amount of practice, 
level of difficulty, and style of instruction to suit their own needs.” (Krendl, 1988, p. 371) Therefore, if the 
user shows or claims knowledge of a concept, omission of a tutorial of ine concept should occur allowing the 
user LO progress onto the next concept. This will prevent the user from experiencing the boredom produced 
by forcing him/her to cycle through a tutorial he/she already understands. An expert user should be able to 
drive the presentation forward from concept to concept after demonstrating an understanding of each concept 
through successful task accomplishment. Therefore, the user, instead of the computer, is guiding the concept 
presentauon. 

Software designers need to allow for this varying concept presentation flow in the program design. The 
program should allow a user with an arbitrary level of comprchension to traverse through the program dealing 
only with the presentation of concepts when they are not understood. Hence, in order to allow for this tutorial 
presentation, the concept presentation must encourage minimal ordering constraints. 

Alíred Bork, a leader in the pedagogical development of computer-based learning, uses pedagogical 
flowcharts to diagram the presentation-flow of a tutorial (electronic mail from Bork). These flowcharts are 
non-hierarchical, informal, and are difficult to translate into software. There is a need for a formal diagram 


that more explicitly displays the hierarchy of the presentation and that leads to a natural translation into 


software. 


ty 





C. ASOLUTION: CONCEPT-FLOW DIAGRAM 

To support a minimal-ordering design, we introduce a new diagram to the structured analysis design 
methodology. The new tool is called a Concept-Flow Diagram (CFD). A CFD is for use to aid in the design 
of CAI by software engineers, computer scientists and anyone involved in the process of designing a tutorial 
of any type. The CFD is a high-level diagram and is for use in conjuncuon with pedagogical design, a series 


of instructional goals, and Dataflow Diagrams (DFD), the connections between program subunits. 


1. Brief Overview of the Design Methodology 


Before attempting to design the CFD, the designers must first attempt a pedagogical design. It is 
during this stage that the instrucuonal materials are fully specified from an instructional point of view (Bork, 
p. 106). From the pedagogical design, specific concepts that need presentation should be apparent. 


A general, but less will-defined, method is to use the educational objectives and task analyses to 
subdivide the course into a set of concepts and techniques which have to be learned. These can be 
parutuoned into a series of levels, depending on their complexity, and usually checks are made to ensure 
that the student has reached a satisfactory standard of mastery before he is allowed to continue to higher 
levels. (Walker, 1984, p. 45) 


These concepts translate into a module or bubble in the CFD. The CFD represents the forward and 
the backward presentauon of these concept modules. Hartley argues for ". . . a more comprehensive 
representation of the student's know ledge state on which to base decision making .. .." (Walker, 1984, p. 39) 
Therefore, at the start of a new concept module, the user is given a task or comprchension test to complete 
via a mastery test (MT). This allows for an active involvement in learning, which is necessary for effective 
leaming and achieving desired outcomes (Levin, 1981, p. 1). Performance upon compleuon of this task 
determines the user's level of comprehension. If the user demonstrates comprehension or satisfactorily 
completes the task, the system moves on to the next task or instruction-related exercise. If the user does not 
complete the task or cannot pass the comprchension test, the feedback should *. . . locate errors and provide 
information so that the learner can put them right... .” (Walker, 1984, p. 43) and also provide *... corrective 
procedures by which gaps in learning, mistakes, and misunderstandings can be relearned or corrected." 
(Levin, 1981, p. 16) The system then reverts to a tutorial and presentation of the concept. The idea is to 
introduce the tutorial only when needed. Upon successful completion of the MT for the specific concept 
module, flow moves on to the next concept module. This is in keeping with Bork's suggestion that pretesting 


and post-testing be included in the tutorial to make individualization possible. (Bork, p. 77) 


„ә 


2. Symbols Used 


We based the symbols used in the CFD on Dataflow Diagrams to allow for easy understanding 
and translation of the new diagram. Refer to Yourdon's recent work (Yourdon, 1989, pp. 139-187) for a 


detailed explanation of the DFD. 


a. Rectangle 


A rectangle represents external entities, or terminators, with which the system 
communicates. A terminator is usually a person, a group of people, or another system outside the control of 
the system modeled. The systems analyst cannot change the contents, organization or internal procedures 
associated with the terminators. (Yourdon, 1989, pp. 155-156, pp. 345-347) This is the same as a terminator 


ina DFD. 


b. Circle 


A circle represents concept that is to be presented. (Also referred to as concept bubble). 
Circles are decomposed into further Concept-Flow Diagrams as needed to detail the concept-flow forming a 


design hierarchy. 


C. Arrow 


An arrow represents concept-flow and direction. It points to the next concept for introduction 
and/or MT to be given. An arrow indicates the dependency of concepts or modules from one part of the lesson 


to another. 


d. Octagon 


An octagon represents a series of tasks that form a MT. Octagons may be decomposed into 


further Concept-Flow Diagrams to show task sequencing and help presentation. 


3. Labelling of Svmbols Used 


The name given to each concept should be specific enough to give the user of the diagram an idea 
of exactly what type of information is presented in the concept presentation. The name of the MT should be 
the exact same as the concept or concepts that the MT is testing for comprehension. Arrows do not get labelled 


since they only represent the direction of flow. 


D. APPLICATION OF THESIS 


Concept-Flow Diagrams are extremely useful and immediately applicable to CAI] and computer 
tutorials. They benefit both the software designer and the user. Software designers have at their disposal a 
structured analysis design tool to improve the presentation and flow of their program. Also, they are given a 
tool that looks somewhat familiar to software engineers, making the learning of CFD design easier. The user, 
on the other hand, is able to use a CAI program that better suits his/her needs. The tutorial is more useful to 
the general user. Through the use of Concept-Flow Diagrams, the novice user is challenged but not frustrated 
with the presentation of new material and the experienced user is allowed to demonstrate understanding rather 
than becoming bored with presentation of concepts he/she already comprehends. Help is provided only when 
the user demonstrates a deficiency, either through task performance or explicitly. Concept-Flow Diagrams, 


thus, improve the functionality of CAI tutorials. 


E THESIS CONTENTS 

Chapter II explains the methodology behind the CFD. Chapter III explains the application of the CFD 
methodology to the design of an actual tutorial that will be implemented. Chapter IV describes the program 
that was written for the tutorial implementation. And finally, chapter V presents the conclusions and 


directions for future research. 


Il. CONCEPT-FLOW DIAGRAM METHODOLOGY 


A. PHYSICS OF SOUND TUTORIAL 


The Concept-Flow Diagram (CFD) design methodology was developed to aid in the design of a tutorial 
concerning the physics of underwater sound. This area was chosen because the U. S. Navy, specifically, 
Space and Naval Warfare Systems Command (SPAWARS (PMW-183)), requested that we design a tutorial 
Lo present just that. The intended users of the tutorial are U. S. Navy enlisted personnel in the Ocean Systems 
Technician Analyst (OTA) raung. This user group includes the high school graduate who basically has no 
knowledge of the topie, and the experieneed OTA, who has worked with and studied the physies of sound. 
The tutorial begins with an introduction of how to use the particular computer program. The concepts covered 
in the tutorial are basic definitions regarding the physics of sound, the characteristics of sound, occan 
charaeteristies, ray path transmission and loss, the passive sonar equation, and the sound velocity profile. The 
placement of mastery tests (MT) and the coneept-flow of the Physies of Sound Tutorial (POST) are discussed 


in this and the following chapter. 


b. PEDAGOGICAL PHASE OF DESIGN 

“The key to pedagogical design, in all its phases, is the extremely good teachers. H is the competence 
of the good teacher that one tries to capture within the computer program.” (Bork, 1990, p. 6) As suggested 
by Bork’s methodology (Bork, p. 106), a professor of physics was consultcd for the pedagogical design phase 
of the POST. To form a pedagogical basis for the design, designers must detcrmine two things to allow for 
easy transition to the design of the CFD. First, the pedagogical phase must determine exactly what the concept 
goals are and second, what tasks to include in the MT. These determinations arc formed in a series of four 


steps. 


1. User Group 


The first step is to dctcrmine the user or person/group of people for whom the system is being 


built. 


The user may be job specific such as an operator, a supervisor or an excculive; the user may be based 
on the level of experience of thc potential users of the system; or the user may be inherent in the concepts 
being taught. (Yourdon, 1989, pp. 155-156) 


б 


Knowing who the users of the tutorial will be affects the pedagogy of the tutorial. The 
terminology, complexity of mastery tests, and the order of the presentation are much different for 
the novice than the expert user. The pedagogy for the novice user begins with low-level concept 
goals and mastery tests and increases in complexity as the user completes portions of the tutorial. 


The expert user, on the other hand, begins with high-level concept goals and tasks. 


2. Concept Goats 


Once the user group 15 identified, the next step 1s to examine the tutorial system as a 
whole and determine the overall concept goals. In other words, the analyst needs to decide what 
the student must comprehend upon completion of the tutorial. This step can take the form of a list 
of all of the concepts needed for presentation in some form within the tutorial. This list of concepts 
is then grouped into categories of related concepts and cach category assigned a descriptive name. 


In the case of the POST, we produced the list in Figure 1. 


3. Concept Dependencies 

Once the concept goals are known, the next step is to determine the dependency 
relationship between each of the concept categories. In other words, the analyst needs to decide 
what concepts must be taught prior to other concepts in order to facilitate comprehension. For 
example, it makes no sense to present the passive sonar equation before presenting what a source, 
sound and detector arc and what the relationship and behaviors are in the medium through which 
the sound is travelling. As the dependency relationships became apparent, the order of 
presentation of these groups based on the dependencies also became apparent. 

The order of the presentation is not lincar. Linearity occurs when the entire tutorial 
presentation is restricted to the presentation of one concept after another in a specific order. While 
this may be appropriate for a fully homogenous group of students, it forces experts to review 
known material. If the order is initially linear, subdividing and rcarranging the contents of the 
concept goal categories is necessary until thc dependencies are more explicit. The subdivision and 
rearrangement of the concept goal categories leads to the formation of concept categories that 


allow thc uscr's knowledge to derive thc order of presentation within a section of the tutorial. The 
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Spreading/divergence 
Spherical Spreading 
Cylindrical Spreading 
Scattering 

Critical Angle 

Multipath Propagation 


Ocean Characteristics 


Bathymetry 
Isothermal 

Gradient 

Thermocline 

Sound Channel 
Surface Ducts 

Deep Sound Channel 
Convergence Zone 
Reliable Acoustic Path 


Sound Velocity Profile 


Temperature 
Salinity 
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Mixed Layer 
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Doppler 


FIGURE 1: Concept Categories 


original list of concept goal categories and their dependency relauonship for POST is illustrated in Figure 2. 
The original order of the concept presentation is linear. Upon reexamination of the concept categories and 
their contents, we diseovered that several of the categories were related and could be combined. The 
reexamination included looking for related concepts, no matter which category they were a part. In Figure 2, 
Ray Path Transmission and Transmission and Propagation Loss categories are related, so these. two 
categories were combined. The rearrangement of the categories changed the dependency relationship. 
Categories emerged whose order of presentation would be left to the student. Students may choose if Ray Path 
Transmission and Loss is presented before or after Ocean Characteristics. Figure 3 illustrates the refined 


coneept dependency relationships. 


4. Mastery Test Placement 


The last step is to determine where in the system to place the mastery tests and what tasks to 
include within these mastery tests. A MT is a task or a group of tasks such that the tasks are “. . . large enough 
to expose the student's misunderstandings and correct them." (Walker, 1984, p. 43) User performance upon 
completion of the task determines the nest state in the tutorial flow. If the user successfully completes the 
task, the MT directs the tutorial flow in a forward direction advancing to another state or concept. However, 
if the user does not successfully complete the task, answer analysis within the MT determines the tutorial 
flow. 

Answer analysis of a task consists of determining the possible answers, both correct and Incorrect, 
and 1f necessary, the types of answers given to previous tasks. By maintaining a history of previous answers, 
a pattern of errors made may develop making the area of deficiency more specific. If answer analysis cannot 
immediately determine the exact area of deficiency, the tutorial backtracks through the mastery tests until the 
deficient area is pinpointed. The mastery tests, not the concept bubbles, determine the user’s level of 
comprehension. 

Mastery tests are a part of the bubble to ensure the user comprehends the low-level concept goals. 
Mastery tests can and should be given upon completion of one or more related bubbles to ensure the user is 
not only grasping the individual concepts goals, but is also able to tie these concepts together to understand 
the more general concept goal. The placement of mastery tests is illustrated in Figure 4. Suecessive tasks 
within a MT should increase in complexity. By gradually increasing the complexity of cach task, the MT 


design makes answer analysis easier. 
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FIGURE 2: Original Concept Category Dependency Relationships 
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FIGURE 3: Refined Concept Category Dependency Relationships 
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FIGURE 4: MT Placement 
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C. CONCEPT-FLOW DIAGRAM 

Upon completion of the pedagogical phase of design, the next step is to formulate the concept-flow by 
using the CFD. At this point in the tutorial design process, the concepts to be presented and the tasks to 
include in the MT have been determined in the pedagogical phase. The basic premise behind the CFD is to 
let the user demonstrate level of comprehension and delve into the actual concept presentauon only if 
necessary, i.e., the user demonstrates a deficiency in a specific area. The user should have the option of either 
starung with a tutorial presentation or delving into a MT. Theoretically, the expert user should be able to 
traverse through the tutorial from MT to MT without a concept presentation occurring. 

The CFD design consists of levcls as with the Dataflow Diagram (DFD). The top level of the CFD is 
level 1, the second level is level 2, and so on. The high-level diagrams will have small numbers and the low- 
level diagrams will have large numbers. The higher levels, i.e., level 1, contain general concept goals and 


mastery tests; the low levels contain the specific concept goals and mastery tests. 


1l. Concept Bubble 

The concept categories delincated in the pedagogical design phase translate into the high-level 
bubbles in the CFD. The dependency relationships determined in the pedagogical design phase translate into 
the placement of the bubbles and the arrows between them to indicate flow of the tutorial presentation. The 
contents of each bubble becomes more specific as you move down (levels with high numbers) in the CFD, 
until the lowest level is reached. The concept goals within each concept category of the pedagogical design 
are translated into the lowest level of the CFD. The lowest level of the CFD pinpoints the exact concepts to 
be presented and the order of presentation. It is acceptable for the lowest level concept order of presentation 
to be linear. 

There should be no more than 9 concepts per level, including level 1. "People can deal with seven, 
plus or minus two, chunks of information consciously and comfortable. More than nine chunks of information 
can lead to confusion and overload." (Cleveland, 1986, p. 18) If more than 9 concepts per level occur, the 
pedagogical design must be reviewed to determine if concept categories can be combined at the higher levels 
then broken out at the lower levels. Each category must contain closely related concepts, not just an arbitrary 
group of concepts. Therefore, a concept category may be divided into subcategories. The subcategories then 
translate to intermediate levels of the CFD and the specific concepts are the lowest level of the CFD. 

Each bubble is numbered as with the DFD. Numbering each bubble allows for relating a bubble 


to the surrounding levels of Concept-Flow Diagrams. The number of each low-level CFD relates to the high- 


— 
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level CFD bubbles. For example, bubble 1.1.1 1s a level 3 diagram and the bubble is part of bubble 1.1 in level 
2 and bubble 1 in level 1. Reversing the process, if bubble 1 in level 1 of the CFD is broken down, the level 


2 bubbles will be numbered 1.1, 1.2, 1.3, etc. 


2. Mastery Test Octagon 

This is probably the most difficult determination to be made in the design of the tutorial. The 
mastery tests determine the level of comprehension of the user and whether or not the user is ready to move 
forward or backward in the flow of the tutorial. The MT is therefore extremely important in the design of the 
tutorial. 

Grcat care must be taken in determining the placement of the mastery tests and determining the 
tasks presented within each MT. This does not necessarily mean that in the higher level CFD, i.e., level 1, 
there must be a MT given after each concept. When designing POST, the first attempt at MT placement put 
at MT between each and every bubble. We discovered that this is unnecessary. A MT between two bubbles 
is unnecessary if the flow to the second bubble is only dependent upon the previous bubble. For example, it 
is unnecessary to place a MT between the /ntroduction & Basic Definitions bubble and the Sound 
Characteristics bubble in Figure 3. The MT within the /ntroduction & Basic Definitions bubble is sufficient 
to determine user comprehension of that concept category. Placing another MT between the bubbles would 
only be redundant. It is necessary, however, to place a MT after the completion of the Sound Characteristics 
bubble because the user must comprehend both the /ntreduction & Basic Definitions bubble and the Sound 
Characteristics bubble prior to starting either the Ray Path Transmission and Loss bubble or the Ocean 
Characteristics bubble. 

There are smaller mastery tests given within each bubble in order to determine comprehension of 
that particular concept. The mastery tests within a bubble address specific concepts within that bubble. At the 
end of the presentation of a bubble and prior to flowing to the next bubble, there is a MT to ensure that the 
uscr comprchends the concept category presented. Then, if a MT follows in the flow, it tests comprehension 
of the relationship between that bubble and any other bubbles already presented. For example, in Figure 4, 
the mastery tests within the /ntroduction & Basic Definitions bubble and the Sound Characteristics bubble 
test only their respective concepts. The MT given after the Sound Characteristics bubble Е the 
comprehension of the relationship between the Basic Definitions and the Sound Characteristics. 

The addition of the MT to the diagram complicates the 9 bubbles per level rule. If the addition of 


mastery tests clutters the diagram, the entire CFD must be readdressed. 1t may require that more concepts that 
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are related be combined and/or the placement of mastery tests changed. Mastery tests are numbered just as 


with the bubbles. 


3. Guidelines 


This translation into a CFD is by no means the final CFD. The CFD must constantly be reviewed 


for improvement. The following guidelines and criteria must be considered: 
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Are there more than 9 bubbles on cach level of the CFD? The CFD cannot look too busy or cluttered. 
If there are more than this number of bubbles and mastery tests, take another look at the concept 
categories determined in the pedagogical design. Concept categories may need to be combined or 
reorganized to meet this criteria. Divide the CFD into more levels than planned or reevaluate the use 
and placement of mastery tests. This only leads to better modularization of, flow of and answer analysis 
within thc tutorial. 


Do the mastery tests serve as a point of bottleneck? A bottleneck occurs when the MT is testing too 
broad and arca for comprehension. If so, reconsider the mastery tests that are needed in the tutorial. A 
bottleneck indicates a need for further breakdown of concept categories and placement of mastery tests 
within the tutorial. 


Does the design allow backtracking from MT to MT? 


Does the design allow the user to choose between concept presentation or MT presentation? 


і 
сл 


IH. CONCEPT-FLOW DIAGRAM METHODOLOGY AS APPLIED TO THE 
PHYSICS OF SOUND TUTORIAL 


The pedagogical design phase of the Physics of Sound Tutorial (POST) has been completed as 
discussed in the previous chapter. The concept categories and their subgoals are now organized to be 
incorporated into the tutorial by using the Concept-Flow Diagram (CFD). The following discussion applies 


the CFD and the Dataflow Diagram (DFD) methodologies to POST. 
A. CONCEPT-FLOW DIAGRAM 


1. Level l 


Level 1 of the CFD 1s illustrated in Figure 5. At this level, the CFD shows the general concept 
categories introduced and when the mastery tests occur. The user may enter at one of two points: go directly 
into the MT or start with the concept presentation. The bubbles are the concept categories determined during 
the pedagogical design phase (Figure 1). The flow and MT placement correspond to the relationships 
determined during the pedagogical design phase (Figure 4). The mastery tests visually break up the tutorial 
into three distinct areas: bubbles 1 and 2; bubbles 3 and 4; and bubbles 5 and 6. This was not intentional; the 
thought that went into the pedagogical design and the final dependency relationships made this a natural flow. 

The contents of the /ntroduction and Basic Definitions bubble in Figure 5 are sted below. The 
other concepts will be implemented in the future and therefore, the specific areas covered within each topic 
are not discussed. 


1. Buttonology - how the mouse operates and how each button that appears on every screen operates. 
Buttons introduced are HELP, CONTINUE and EXIT. 


2. Source - the definition of the term, how represented in the tutorial and manipulation of the source by 
the user. 


3. Medium - the definition of the term and how the medium affects the speed of sound. 
4. Sound and Ray Path - the definition of the term and how represented in the tutorial. 
5. Detector - the definition of the term, how represented in the tutorial, manipulation of the detector by 


the user and the effects оп detection of sound depending upon the relationship between the source and 
the detector. 
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FIGURE 5: Concept-Flow Diagram Level 1 
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Refer to Figure 6. he first attempt at designing the level 2 diagram is illustrated in Figure 7. Notice 
there is a MT after each concept presentation. Upon further design and review of the pedagogical design, we 
discovered that this was unnecessary for the POST. The concepts presented are so basic that the MT for each 
concept would be trivial. A MT within and between each concept bubble caused the MT between each 
concept bubble to be trivial and redundant. We decided that a MT for concepts 1.2 thru 1.5 was much more 
effective as illustrated in Figure 7. 

Each bubble in Figure 7 represents the presentation of each concept. Bubbles 1.2 thru 1.5 are not 
contained within one bubble because cach concept presentation depends upon the student understanding the 
prior concept presentation. Although there arc not explicit mastery tests between each bubble, there are 
mastery tests within each bubble. It is the successful completion of these mastery tests that determines 


transition to the next bubble. 


3.  Level3 


The original version of the CFD level 3 diagram appears in Figure 8. Notice that there are no 
mastery tests. Upon reexamination, we decided that the /ntroduction bubble needed to be more explicit and 
that mastcry tests were needed. The inclusion of mastery tests ensured that the user had mastered the basic 
tasks of using the mouse prior to starting the tutorial. This diagram was revised, Figure 9, to include them. 
Mastery tests are not given after the presentation of cach concept goal because the MT after all of the concepts 
at this level have been presented would be too trivial and redundant. The concepts themselves are so basic 


that one MT at the end is sufficient. 
D. DATAFLOW DIAGRAM 


1. Context Diagram 


The context diagram represents the entire system. The context diagram for POST is illustrated in 
Figure 10. In addition to the student using the tutorial, terminators are introduced representing an instructor 
and the Ocean Systems Qualification (OQS) board. The instructor and the OQS board are able to monitor 


student progress and to update the tutorial as needed. 


2: Level 1 


Level 1 of the DFD is illustrated in Figure 11. A quick glanee at Figures5 and 11 shows a drastic 


difference in the CFD and the DFD. The difference is due to what cach analysis tool represents. The DFD 
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FIGURE 8: Original Concept-Flow Diagram Level 3 





represents the communication between software structures of the system and shows how the data is passed 
throughout the system. The CFD attempts to provide a visual aid to illustrate how the tutorial is to be 
presented; 1.e., the sequence of introduction of different concepts. 

The terminators of the POST tutorial are: 


1. The instructor. The instructor is allowed to interact with the tutorial text and test question file. 
Interaction includes the instructor deciding which concept module the student will use or modifying 


the test questions asked of the student. The instructor also may keep track of user mastery test (MT) 
results. 
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FIGURE 9: Revised Concept-Flow Diagram Level 3 


The Ocean System Qualification Standard (OQS) Board. The OQS Board may interact with the system 
by requesting and/or monitoring MT results of each user. 


The user of the tutorial. The user may request which concept he/she wishes to explore. If the user must 
quit the tutorial, either temporarily as an icon or for an extended period of time, he/she may restart the 
tutorial at the point at which he/she quit. Determination of this point of restart is through check points 
reached when the user last used the tutorial. 
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FIGURE 10: Context Diagram 





Bubble 1 of Figure 11 allows the instructor to interact with the tutorial text and test questions file. The 
tutorial presentation uses this file for the text of concept explanations and mastery tests. For each tutorial, the 
main process is to present the tutorial, bubble 2. The CFD is actually a more detailed design of this bubble. It 
delineates exactly how to present the tutorial, taking into consideration the topic of the lesson plan. Because 
the mastery tests are given within this process, the instructor and the OQS board get the individual user 
performance statisucs from here. The other process that occurs in à tutorial is the restart, bubble 3. If the user 
exits the tutorial in the middle, the user is brought back to the concept where he/she left off. The tutorial has 
check points assigned after the completion of a concept or MT. When the user restarts the tutorial, the check 


point file is checked find the last check point encountered. The tutorial then restarts from this check point. 
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FIGURE 11: Dataflow Diagram Level 1 


To illustrate the basic process flow, the only DFD lcvel 1 bubble that required further breakdown was 
bubble 2, Present Concept. Refer to Figure 12. Within the presentation of the tutorial, the two major processes 
that occur are either the presentation of a concept to the user or the presentation of a MT to the user. 


1. Once the concept presentation occurs, a MT is given to determine the level of comprehension of the 
user. Determination is made by the maintenancc of statistics of correct answers to the mastery tests. 


2. Once the MT is given, a determination is made by the tutorial as to the level of comprchcnsion. If the 
user has shown mastcry of thc conccpt, the tutorial moves on to the next MT or concept module. If the 
user has shown a deficiency, the tutorial moves to the appropriate concept presentation to help clear the 
misunderstanding. 


C. SUMMARY OF CFD AND DFD COMPARISON 


Thc CFD design methodology presents a very complex structure while the DFD presents a simple 
structure. This is very characteristic of computer-aided instruction (CAT). CAI deals with the trying to present 
a wide range of concepts in an ordcercd manner. The CFD structure allows for thc breaking up of this task into 
an organized hierarchical structure. 

The CFD allows for an instructor to intcract with the tutorial presentation to modify task and concept 
discussion. This permits the tutorial to be updated as the course develops. By allowing the modification of 
the tutorial, the CFD structure must be placed in an caternal file, interpreted by a fairly general system. This 


sysicm 15 prcsentcd in the next chapter. 
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FIGURE 12: Dataflow Diagram Level 2 
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IV. DESCRIPTION OF PROGRAM 


Now that the structure of the Concept-Flow Diagram (CFD) has been developed, it is necessary to 
translate the design into software. In order to do this translation in a flexible manner to allow instructors to 
customize the course materials, the CFD is translated into an external file in a special-purpose language. This 
language is parsed into a data structure representation and interpreted. The following discussion presents the 


grammar implemented to support the data structure and a prototype of an interpreter. 


A. COMPUTER SYSTEM 


The Physics of Sound Tutorial (POST) module is part of the SPARS Release 5 system. The computer 
hardware used for implementation was a U. S. Navy Standard Desk-Top Tactical-Support Computer (DTC- 
Ba smed by a major systems integrauon firm, C3, Inc. The DTC-2 uses the SPARC 4 series 
implementation of RISC computer architecture. The DTC-2 system includes an 8 MB 4/110 CPU, a 19" color 
monitor, a color graphics plotter, a color graphics printer, a mouse, and a track ball. The software used was 
SUNOS 4.0 and C compiler. The 4/110 UNIX System V Operating System includes SunView, Open 
Windows (X11/NeWS), NFS, Assembler, and Real-time Extensions. 

The interpreter was implemented using Sun Visual/Integrated Environment for Workstations 
(SunView). SunView is a tool that allows for the implementation of graphic-based applications running in 
windows. Two types of windows were used in this application: panels in order to use buttons and a canvas in 
order to draw text and graphics. The canvas may be used as a whole region or a set of nine regions. A mouse 
is used to track location, to click the set of buttons, and as a graphic positioning device. A trackball 1s available 


for use but was not used in the prototype. 


B. IMPLEMENTATION OF DESIGN TOOLS 


We developed a data structure, a grammar and an interpreter in order to implement the tutorial based 
upon the pedagogical design phase, structured analysis and CFD designs. The POST was implemented using 
the grammar and data structures described below. Appendices B thru E contain the POST script, grammar, 
LEX and YACC files and interpreter respectively. Appendix F contains a detailed explanation of the data 
Structure elements. In the discussions below, bold italics refer to elements of the grammar and bold refers to 


elements of the data structure. 


C. DESCRIPTION OF GRAMMAR AND DATA STRUCTURE 


The grammar is based on the CFD graph semantics and expressed in a BNF notation. The UNIX tools 
LEX and YACC were used to implement thc grammar as a parse for input files describing the tutorial. The 
data structure for a tutorial forms a cfd. graph. A cfd graph consists of a cfd menu and nodes, called 


cfd node. Thc reserved words of the grammar are listed in Figure 13. 


asscrl halfwid 

clear input 

click-left key 

click-mid mouse 

click-right mouse&key 

click-any mouse-move 

click-help past <=, >= 


спск-сопипис pause & (logical and) 


click-exit write | (logical or) 


draw 


ћа и 


FIGURE 13: Reserved Words 





І. Graphic Definition 
The user may define the graphics or CFD states at the highest syntax level of the input file. The 
graphics are specified by identifier := string. The tutorial script references the graphic images by the 
identifier. The string identifies a file in which the graphic is stored. This information is used in the draw and 


drag acuons. Figure 14 shows the graphic image definitions used in POST /ntroduction and Basic Definitions. 


2.  cfd node 


Each node of the CFD ts represented as a cfd_node structure with a CFD node identification 


number (cfd_id), the action or actions that is/are to occur at this CFD node, and the possible response or 


detector :2 "detector. sym.icon 


mouse sym :- "mouse sym.icon" 
path :z "path. sym.icon" 
РО post syiicon 


source := “source_sym.icon” 


FIGURE 14: Graphic Definition Example 





responses expected at this point in the tutorial. An example of the grammar of a typical cfd. node appears in 


Figure 15. 


Em I. ( (0, clear), 
(1, draw, post(2 (mouseX, mouseY)), 
2, write, “Welcome to the Physics of Sound Tutorial’), 
(5, write, "Upon completion of this tutorial, you will have enough of an understanding to 
complete the Physics of Sound module of your OQS”), 
Eie, Lets begin.. .”) 


10 pause, 15) ), 


Уві 1 5) 


FIGURE 15: Example of a State 





a. action list 


The action list specifies the actions that are to occur while in a state. The action list identifies 
where in the window to accept input, to draw graphic images and where to display the text of the tutorial. The 
actlist of the cfdnode in the data structure represents the action list elements as a linked list data structure of 
actnode. The actnode identifics the region of the window in which the action is to occur, the specific action 


to take, and the arguments to that acuon. 
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(1) region id - The screen window 1s broken into 10 disunct regions. By breaking the 
window into distinct regions, different actions are allowed to take place in the different regions of the 
window. This allows the tutorial to simultaneously display graphics and text. In Figure 15, the “0” in (O, clear) 


refers to region 0, the “8” in (8, write, Let's begin.. тс tO reion S. 


(2) draw - This terminal enables the tutorial to display a graphic in the window to enhance 
the presentation of the tutorial. The “draw” action must be followed by an identifier specifying the graphic 
to be displayed and the location, The location 1s given using a set of coordinates; either the current location 
of the mouse, (mouseX, mouseY), or the location of a graphic currently displayed, (rdentifter.x, identifier.y). 
In Figure 15, (1, draw, post(à (mouseX, mouse Y)) says to draw the post icon in region 1 at the current location 


of the mouse. 


(3) clear - This feature allows the erasure from portions of the window text and/or graphics 
that are not relevant to the current state of the tutorial presentation. The location is identified as in the "draw" 


action. In Figure 15, (0, clear) says to clear region 0. 


(4) write - This is the means by which text is displayed in the window. In Figure 15, (2, 
write, "Welcome to the Physics of Sound Tutorial") says to write the string "Welcome to the Physics of Sound 


Tutorial" in region 2. 


(5) input - Restricts the area of the window where the user may input text and/or manipulate 
graphics. Restricting the input area to a region within the window prevents the user from arbitrarily writing 
text or moving graphics around the window and thus interrupting the tutorial presentation. Input is either 
mouse, keyboard or mouse&key. In Figure 16, (0, input, mouse) says to allow input via the mouse in region 


0 and (9, input, keyboard) says to allow keyboard input in region 9. 


(6) pause - Limits the amount of time that an action 1s displayed to the user before moving 
on to the next action or state. An example ts to display text in the window, allow a sufficient amount of time 
for the display to be read, and then move on to the next state. In Figure 15, (0, pause, 15) says to set the timer 


for 15 seconds and have region 0 in the wait state. 


(7) drag - Allows the user to drag a graphic using the mouse. The drag feature may be 


incorporated into the mastery tests to increase the complexity of the tasks. 


(8) quit - This feature is used to quit the tutorial upon execution of the last state of the 


tutorial. If MT performance and answer analysis indicate that the user is not grasping a concept, the tutorial 
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(st_1_1_50, ( (7, write, "Don't be afraid to try pressing a button on the mouse."), 
(0, input, mouse), 

(9, input, keyboard) ), 

((15 seconds & (past st 1. 1. 50 wait wait), st 1. 1. 55), 

(15 seconds & (past st 1. 1 10 маи), (assert, wait, wait), st 1. 1. 50), 
(click-left, (assert, left), st 1 1 15), 

(click-middle & (pastst 1. 1. 402X wrong),st 1 1. 45), 

(click-middle & (past st 1. 1. 35 wrong ans), st 1. 1. 40), 

(click-middle, (assert, mid), st 1. 1. 35), 

(click-right & (pastst 1. 1 402X wrong), st 1 1 45), 

(click-right & (pastst 1. 1. 35 wrong ans),st 1. 1. 40), 

(click-right, (assert, mid), st 1 1 35) 

G i | ldo not know) & (раз 5. 1 1 1Оће!јр), 5. 1 145), 
(CHelp" ! "I do not know), (assert, help), st 1. 1. 65), 

((past st 1. 1. 10 wrong ans & pastst 1. 1. 35 wrong ans), st 1 1 45), 


((assert, wrong ans),st 1 1 35))) 


FIGURE 16: input and response list Example 





terminates the presentation and directs the user to get assistance from the instructor. This terminal is not the 
same as the EXIT button. The EXIT button is used by the user to request tutorial termination. In Figure 17, 


quit is used to stop the tutorial to allow the user to get assistance from a human. 


b. response list 


The response list evaluates the user response, performs answer analysis, and provides the 
user with feedback. The response list was designed such that the tutorial can identify the user response and 
the state to flow to based upon the response and answer analysis. 

The response list is a list of all of the possible responses to the acuon(s) in the action list. 


The structure of the response list must identify the response and the next state (cfd. id) t0 go to based on this 
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(st 1. 1. 45, ( Q3, clear), 
(5. clean, 


(3, write, “You seem to be having trouble.”), 


(4, write, “Before progressing any further, get assistance from your instructor.”), 


(0, quit) ), 


СЕА Э) 


FIGURE 17: quit Example 





response. The response list is order dependent; therefore, the first response in the list that matches the 


response of the user is executed. The response list was implemented with a linked list called resnode. 


(1) click-left, click-middle, click right, click-any - Refers to the respective button on the 
mouse. The click of a mouse button is a response event from the user. This terminal allows the response list 
to evaluate the respective response in the response list. In Figure 16, the “click-left” in (click-left, (assert, left), 


st 1 1 15)asks if the response event was a click of the left mouse button. 


(2) click-help, click-continue or click-exit - Refers to the buttons located in the panel across 
the top of the window. The HELP button is on-line help provided to the user. The CONTINUE button is an 
accept action that directs the tutorial to move on to the next state in the tutorial flow. The EXIT button quits 
the tutorial. These buttons are always present in the window and are global to the tutorial allowing the user 


to choose one of these options at any time. 


(3) mouse-move - Notifies the response list that the cursor is being moved using the mouse. 


This feature was not used in the POST. 


(4) integer “seconds” - Limits the length of time that a user may take to give a response. 
This feature prevents the tutorial and the user from getting into a dead lock state; the user does not know the 
proper response and therefore is not giving any response and the tutorial is waiting for a response before 
moving on to the next state. In Figure 16, “15 seconds” in (15 seconds & (past st_1_1_50 wait_wait), 


st_]_1_S5) states to set the timer for 15 seconds and wait that long for a response event. If a response event 


is not received in that time period, go tostatest 1 1. 55. Remember,st 1. 1 55represents state 55 of concept 


bubble or MT 1.1. 


(5) arithmetic operators - The use of the arithmetic operators allows for the interpretation of 
where a graphic has been placed within a region. This includes the use of the terminals halfht and halfwid to 


assist in centering a graphic in a region of the window. 


c. Use of assert and past 


In order to determine which state to go to next, answer analysis must occur. This involves 
reviewing answers given to past questions or tasks. Therefore, the MT should respond to a response 
differently based on a history of performance in the tutorial. assert is a list that maintains all of the states 
traversed and the user response for that state. However, the list does not imply path traversal. past verifies the 
assert list to check if a state and specified response have occurred in that state. The past feature Is very useful 
for answer analysis. The choice of the next state to go to can then be based on the current response and 
previous responses made at specific states. This feature is also very useful for distinguishing state traversal 
for the expert versus the novice user. The novice user will make mistakes. The past feature allows for finding 
patterns in the types of wrong answers made and more importantly, ensures that the flow of the tutorial 
presentation is to a state that will provide assistance for correcting the pattern of wrong answers. 

With the introduction of the past feature, the order of the response list affects the decision 
logic. For example, assume state st 1. 1 10 has been traversed and st 1. 1. 10/wait exists in the assert list. 
Also, assume the response event is a click of the left mouse button. The evaluation of the response list in 


Figure 18 will always evaluate the first response and never evaluate the second response. The first response 


(click-left & (past st. 1, 1. 10 wait), (assert, wait, wait), st 1. 1. 70) 


(click-left & (past st 1. 1. 70 wait, wait), st 1. 1. 55) 


FIGURE 18: Sample Response List 





will check the assert list to verify that st 1. 1. 10 has been traversed with the response wait. Since the response 
list is order dependent, this will always be true and the response will lead to an infinite loop. The evaluation 
of the response list in Figure 19, on the other hand, will evaluate the second response the first ume the 
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response list is encountered. The first time that state st 1. 1. 70 is пауетзед, only "st 1. 1. 10 wait" is in the 


assert list; therefore, "st 1 1. 70 wait. wait" will not be found and the second response will be evaluated. The 
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(click-left & (past st. 1. 1. 70 wait. wait), st 1. 1, 55) 


(click-left & (past st 1. 1. 10 wait), (assert, watt. wait), st 1. 1. 70) 


FIGURE 19: Revised Sample Response List 





second time that state st 1. 1. 70 is traversed, both "st 1. 1. 10 wait" and "st. 1. 1. 70 wait. wait" will be in 
the assert list. When the first response 1s evaluated, the response will be true and traversal will continue to 


another state. The terminals used to represent this data structure in the grammar are: 


(1) past - Specify state and response given in that state. Response given cannot be areserved 


word. Refer to Figure 13 for a lisung of the reserved words. Refer to Figures 16, 18 and 19 for examples. 


(2) assert - Specify response given which cannot be a reserved word. Refer to Figures 16, 


18 and 19 for examples. 


3.  cfd menu 


This non-terminal and data structure element allows the tutorial to individualize the presentation 
by allowing the user to specify the point in the tutorial he/she wishes to start. If the user chooses a start point 
that is too advanced, the MT for that start point will identify this and backtrack until a point of comprehension 
is found. The interpreter of the tutorial script generates the window ttle of the specific tutorial in the main 
frame and the start points within the cfd_graph for the specific tutorial. 

In the POST, the grammar for the menu appears in Figure 20. The main window will feature the 
string of the title “PHYSICS OF SOUND TUTORIAL" and the menulist consists of thc title of the seven (7) 
choices to appear in the main menu and their respective state identifiers. The choices in the main menu will 


be labelled starting with the string “Introduction” and ending with the suring “Overall Test.” 
D. DESCRIPTION OF INTERPRETER 

An interpreter was designed to implement a prototype of the POST. The interpreter allows for the use 
of any tutorial written in the grammar described in this thesis. A listing of the interpreter is found in Appendix 
E 

Prior to interpreting the grammar, the grammar must first be parsed. The parse input is then used to 
initialize the tutorial window. The initial frame presents the user with the options for an initial start state. Once 
the initial start state is chosen, the actions of that start state are presented in the canvas of the base frame. The 


event handling procedures of SunView then accept a response from the user to be interpreted via the input 


1) 
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iu SICS OF SOUND TUTORIAL” 
“Introduction”->st_1_1_1, 
Source >st 1.2 1; 

“Medium ->st 1 3 1, 

"Sound" -»st 1] 4 1, 

ООО ss 5 1. 

Pinte Vest ->st_ 1 10 L 


“Overall Test’”->st_7_1) 


FIGURE 20: cfd menu Example 





handler for the canvas. The next state 1s chosen and executed based on the interpretation of response options 
for the current state. The sequence for presenting a state is the same: present the actions, allow SunView to 
accept the response, interpret the response and then go to the next state. At anyume during the execution of 


the tutorial, the user has the option of exiting the tutorial. 


1. Present Actions 


The process of presenung the actions of a state is first to determine the region that the action is to 
occur. Once the region is determined, the action is then executed within that region as described previously. 


И the action list consists of more than one action, each action in the action list is executed. 


2. Interpret Response 


The response is first interpreted by Sunview event handling procedures to determine exactly what 
the response was. Then, the corresponding response is found in the response list. 1f the next state to go to relies 
on past answer history, the assert list is included in the response evaluation. Once the appropriate response 
and past history have been found in the response list, the next state is executed. If no match with the response 


list is idenufied, the software remains in the same state and waits for further input. However, most states will 


23 
л 


specify a default transition to be taken in sucha case, 1. ¢., users will not be left “stranded” at some point in 


the tutorial. 


V. CONCLUSION AND FUTURE RESEARCH 


А. SUMMARY OF CONTRIBUTIONS 


A Coneept-Flow Diagram (CFD) is a representation of the information presented in a computer-aided 
tutorial. The CFD highlights the eoneepts that are prerequisites to the presentation of other eoneepts and 
idenüfies where verification of mastery is to be performed within the tutorial. A visualization of this 
information, as provided with the CFD, has two key benefits. 

First, the CFD provides a funetional basis for the design of tutorials. The designers of the eomputer- 
aided tutorial are provided with a tool that assists in the design of the presentation of the tutorial. The CFD 
allows for a hierarehieal presentation of the tutorial, forward and baekward presentation-flow, and answer 
analysis that is history sensiuve. Designers are also presented with a tool whose symbology is somewhat 
familiar and therefore immediately implementable. By using the CFD design methodology, the designers are 
able to see the presentation flow prior to any programming or eoding. 

Second, the CFD provides a basis for evaluation of tutorial presentation. By using the CFD 
methodology, the designers are forced to take a closer look at the presentation flow of the concept goals. The 
CFD ean identify areas where the presentation 1s presenung too much information. It can also help to identify 
where the ideal place within a presentation occurs to test the user for comprehension. The CFD strongly 
encourages non-linear dependency rather than an explicit ordering to the eoneept-flow of the tutorial 
presentauon. 

By highlighting the flow of presentation as a basis for software design, the CFD enables more realistie 
engineering of computer-based tutorials. Automated strategies, such as the CFD interpreter deseribed in this 
thesis, are supported by this design technique. In summary, the introduetion of the CFD shifts the emphasis 
of computer-aided instruction design from modelling of student behavior to design of presentation and 


knowledge verification. 


B. RECOMMENDATIONS FOR USE 


Coneept-Flow Diagrams allow the design of tutorials to take place in a specifie eontext of assumed апа 
demonstrated knowledge. The CFD methodology is immediately useful in tutorials for students with 


heterogeneous backgrounds. The CFD does not rely on the users to have some common knowledge base in 


order to use thc tutorial. Therefore, the tutorial can be directed at a more generic audience, from the novice 
to the expert, without over-challenging or boring the user. The usc of this methodology would greatly enhance 
the tutorials used in organizations, such as the U. S. Navy or the Department of Defense, where the personnel 
who attend their schools range from the recent high school graduate to individuals with advanced degrecs and/ 
Or experience. 

Concept-Flow Diagrams arc also uscful in providing information on how to use interactive software 
with complex user interfaces. The users of on-line help within a software package, such as an editor or word 
processor, are uSually presented with detailed information about the item requested. The use of Concept-Flow 
Diagrams would allow the user the option of a detailed explanation or a quick revicw, pleasing both the 
novice user and the expert user of the system who may have just forgotten how a function opcrates. The CFD 
also can place the help provided in the context of recent commands through the usc of the answer analysis 


assert and past non-tcrminals. 


C. RECOMMENDATIONS FOR FUTURE RESEARCH 


This thesis concentrated on the design methodology of the presentation flow and representation in a 
CFD. An extension of this discussion led to answer analysis. A more concentrated effort in the arca of answer 
analysis ıs well-deserved. This includes more formally describing mastery test flow and usage. 

In order to build tools to generate and evaluate Concept-Flow Diagrams, formal semantics and codc 
generation are needed. Therefore, two areas recommended for future research are establishing the formal 
semantics of Conecpt-Flow Diagrams and building tools to gencrate code from Concept-Flow Diagrams. 

This leads to actually building the tools to generate and evaluate Concept-Flow Diagrams. The tool or 
tools could verify such things as too many bubbles per level, points of entry exist via both the MT and concept 
presentation, and that flow is possible, both forward and backward, from MT to MT or bubble to bubble. 

In order to enhance the tutorial presentation, the CFD language can be extended to provide vector 
graphics capability and animation capability. Currently, the tutorial designers are restricted to stationary 
icons. The extended capabilities would allow for using moving objects in a task or presentation. 

The last recommendation is the transformation from prototype to working interpreter. The interpreter 
designed is a partially functional prototype. Complction of the prototype and implementation as a ОШО, 


modcl are necessary. 


APPENDIX A 
LIST OF CONCEPT GOALS FOR 
THE PHYSICS OF SOUND TUTORIAL 


1. Introduction and Basic Definitions 


d. 


DUCI EO 


P B = rm =m m o e. o = P 


д гч шеш И =» 


Buttonology 

Source 

Medium 

Sound and Ray Path 
Detector 


Sound Characteristics 


Frequency 

Hertz 

Period 

Compression 

Rarefaction 

Longitudinal wave 
Amplitude 

Effective Pressure Amplitude 
Wavelength 

Wavefront 

Absolute Sound Pressure Level (ABS SPL) 
Decibel 


. Broadband 


Tonals 


. Ray Path Transmission and Loss 


Direct Path 

Reflected Path 
Refracted Path 
Refracted Surface Reflected Path (RSR) 
Limiting Ray 

Shadow Zones 
Attenuation 
Scattering 
Spreading/Divergence 
Spherical Spreading 
Cylindrical Spreading 
Multipath Propagation 


. Critical Angle 


4. Ocean Characteristics 


пороваткттпратовогте 


Bathymctry 

Gradicnts 

Isothermal 

Gradient 

Thermocline 

Sound Channel 

Deep Sound Channel (DSC) 
Surface Ducts 

Bottom Bounce 
Mixed Layer 
Convergence Zones 
Reliable Acoustic Path 


. Noise 


Hydrodynamic Noise 
Biological Noise 
Seismic Noise 

Ocean Traffic Noise 
Séa Surface Noise 


5. Passive Sonar Equation 


о ас ев 


тз 


Transmission Loss (TL) 

Source Level (SL) 

Noise Level (NL) - ambient noise, platform noise 
Array Gain (AG) 

Recognition Differential (RD) 

Figure of Merit (FOM) 

Signal Excess (SE) 


6. Sound Velocity Profile (SVP) 


г ое 


Temperature 

Pressure 

Salinity 

Deep Sound Channel Axis 
Noise Spectrum Level 
Bandwidth 

Doppler 

Echo Level 
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APPENDIX В 
PHYSICS OF SOUND TUTORIAL SCRIPT 


/* AS OF 17 JAN 92, 1430 xj 


(menu "PHYSICS OF SOUND TUTORIAL" 
"Introduction" -5st 1 1] 1, 

Ec st 1 2 l, 

Eum -> $ 1_3_ 
и -> st 1 4 1, 
віренестог -о сі 1.2 |, 
auo est --st 1 10 1, 
ЕГЕП! lest -> st_7_1) 


8 


detector :— "detector sym.1con" 

MoR easy := mouse sym.icon" 

path :2 "path. sym.con" 

post := "post sym.icon" 

зоштсе = "source sym.icon" 

жжжжжжжжжжжюююжюжжжжжж ВІ "ТТОМОЇ ОСУ 1.1 хжжжжжжжжжжжжжжжжжжжжжжж ж / 


(st 1. 1 1, ((0, clear), (1, draw, post(2 (mouseX,mouseY)), 
(2, write, “Welcome to the Physics of Sound tutorial"), 
(5, write, "Upon completion of this tutorial, you will have enough of an understanding 
to complete the Physics of Sound module of your OQS"). 
gne. "Lets begin... ), (0, pause, 15) ), 
st 1 1 5) 


4] 


ет. 

(1, draw, mouse sym(2(mouseX, mouseY)), 

(3, write, "In order for you to interact with the computer, you must be familiar with the 
keyboard and the mouse. It is assumed that you are already somewhat familiar with the 
keyboard since you logged onto the system’), 

(4, write, "Notice the figure in the upper lefthand corner of the screen. This is called the 
MOUSE. There should be one hooked up to your terminal."), 

(5, write, "There are 3 buttons on the top of the MOUSE, each one performing a different 
function."), (O0, pause, 10) ), 

st 1 1. 10) 


ӘЛТЕКЕ еј ако. 
(4, clear), 
(>, ваш! 
(3, write, "The LEFT button performs an ACTION when clicked once."), 
(7, write, “Click the LEFT button on the MOUSE once when you are ready to continue."), 
(0, input, mouse), /* allow input with mouse */ 
(9, input, keyboard) ), /* allow input with keyboard only in */ 
/* region 9 a 
еее assert ЕОС опише ни 
(click-middle & (pastst 1 1 40 2X. wrong), st. 1. 1. 45), 
(click-middle & (past st 1. 1. 35 wrong ans), st 1. 1. 40). 
(chck'nuddi em a s i ni ñm о 
(click-right & (past st 1. 1. 402X wrong), st 1 1 45), 
(click-right & (past st. 1. 1. 35 wrong ans), st 1. 1. 40), 
(click-right, (assert, nich jst. о ори 
(15 seconds. (assenpswalb А 
(C Help” | "I do not know") & (past 50 11110 перу 112195 
( Help" | "I do not know", (assert, help), st 1. 1 65), 
((past st 1. 1. 10 wrong ans) & (pastst 1. 1. 35 wrong ans),st 1 1 45), 
(assert, wrong ans), st 1. 1. 35)) 


" 


(1_1_—1-15,( (3, с1еаг), (7 clear (O и 
(5, write, "Very good. That is the correct button.") ), 
st_1_1_20) 


CIN. ( (5, clear), 
(3, write, "At this time, the MIDDLE and RIGHT mouse buttons have no function. 
Therefore, you will not have to use them."), 
(7, write, "Click the LEFT mouse button when you are ready to continue."), 
(0, input, mouse), 
(9, input, keyboard) ), 
acuc-left, (assert, left), st 1. 1. 25), 
(click-middle & (pastst 1 1 402X wrong),st 1 1 45), 
(click-middle & (pastst 1 1 35 wrong ans),st 1 1 40), 
tar Eemiddle, (assert, mid), st 1 1 35), 
(click-right & (pastst 1 1 402Х wrong),st 1 1 45), 
(chck-right & (past st 1 1. 35 wrong. ans), st 1. 1. 40), 
(click-right, (assert, right), st 1. 1. 35), 
(15 seconds, (assert, wait), st 1. 1. 80), 


—  — -- 


fee I T do not know”) & (pastst 1 1. 20 help), st 1. 1. 45), 
CHelp" | "I do not know", (assert, help), st 1. 1. 40), 
((pastst 1. 1 20 wrong ans) & (pastst 1. 1 35 wrong ans),st 1 1 45), 


(assert, wrong ans),st 1 1 35)) 


DNE. ( G, clear), (7, clear), 
(3, write, "The position of the cursor on the screen can be changed by moving the 
MOUSE on the pad."), 
(4, write, "Try moving the cursor to different positions on the screen using the mouse."), 
(7, write, "Once you are comfortable with moving the cursor, position the cursor over the 
CONTINUE button at the top of the screen and click the left mouse button once."), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (mouse-move, st 1 1 30), 
(click-continue & (pastst 1 5. 30 wrong ans), st 1. 5 1), 
(click-continue & (past st 1 2 30 wrong ans),st 1 2 5), 
(click-continue & ((pastst 1 6 25 help)! (past st. 1. 6 25 wrong ans)), 
(assert, continue), st 1 6 1). 
(click-continue & ((pastst 1 6 5 help) | (pastst 1. 6 5 wrong ans)), 


(assert, continue), st 1 6 1), 


(click-continue & ((pastst 1. 6 1 help)! (past st 1. 6 1 wrong ans)), 
(assert, continue), st_1_6_1), 

(click-continue, (assert, continue), st_1_1_110), 

ШЕ бесопав, (а<<егі, хуап), st. 1. 1. 70), 


aisi» | Ido not know", (assert, help), st 1. 1. 75). 
(assert, wrong ans),st 1 1 75)) 


ЈЕ: 
UC, 


(st 1 1 30, ( Ə, clear), C сат) (7. clear s l a 
(4, write, "Good. Try moving the position of the cursor using the mouse again."), 
(7, write, "When you are comfortable with moving the cursor, move the cursor to the 
CONTINUE button at the top of the screen and click the LEFT mouse button once."), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (imouse-move, st 1 1 30), 
(click-continue, (assert, continue), st 1. 1. 110), 
(5 seconds, (assert. Wall STIS 
("Help" | "I do not know" | "How", (assert, help), st_1_1_75), 
(assert, wrong ans),st 1 1 75)) 


(5; 1-Ї 35.09 clear) ЕСА Orl o), 
(3, write, "That 1s not the correct button. Try again.") ), 
(((pastst 1. 1. 10 midlpastst 1 1 lO right! past st 1 1. 10 wrong ans), 
(assert, wrong ans), st 1 1 10), 
((pastst 1. 1. 20 mid! past st 1. 1. 20 right! pastst. 1. 1. 20 wrong ans), 


(assert, wrong ans), st 1 1 20), 
((past st 1. 1. 20 wrong. ans), (assert, wrong ans), st 1 1 20) )) 


(st TOI A0 (C (5. cleac wi» са o l 
(3, write, "Remember, the MIDDLE and RIGHT buttons on the mouse DO NOT perform 
any function. Therefore, click the LEFT button on the mouse once to perform an 
ACTION: | 
(7, white, Try the е ховівова м зони мо 
(((pastst 1 1. 10 midlpastst 1 1 10гісін) & (pastst 1 1 35 wrong ans), 
(assert, 2X wrong), st 1 1 10), 
((past st 1. 1. 20 midl pastst 1. 1. 20 right) & (pastst 1. 1. 35 wrong ans), 
(assert, 2X wrong),st 1 1 20), 
((pastst I 20 Пер) Т” 
(st-1-1-45; CCS, clean moe qa 
(3, write, "You seem to be having trouble."), 
(4, write, "Before progressing anv further, get assistance from your instructor. "), (0, quit) 
ЗЕЕ 
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(st. 1. 1. 50, ( (7, write, "Don't be afraid to try pressing a button on the mouse."), 
(0, input, mouse), 
(9, input, keyboard) ), 
ad bsconds & (past st 1. 1. 50 wait. wait), st. 1. 1. 55), 
(15 seconds & (past st 1. 1, 10 wait), (assert, wait wait), st 1. 1. 50), 
Cuek left, (assert, left), st 1. 1. 15), 
(click-middle & (pastst 1 1. 402X wrong), st 1. 1. 45), 
(click-middle & (pastst 1. 1. 35 wrong ans), st 1. 1. 40), 
Cek middle, (assert, mid), st_1_1_ 35), 
(click-right & (pastst 1 1 402X wrong), st 1. 1. 45), 
(click-right & (past st 1. 1. 35 wrong ans), st 1. 1. 40), 
(click-right, (assert, right), st 1. 1 35), 
(CHelp" | "I do not know") & (pastst 1. 1. 10 help), st 1. 1. 45), 
( Help" | "I do not know", (assert, help), st 1. 1. 65), 
((pastst 1. 1. 10 wrong ans & pastst. 1. 1. 35 wrong ans), st 1. 1. 45), 
(assert, wrong ans),st 1 1 35)) 


(пи 5. ( (0, clear), 
(5, write, " You have not taken action."), 
(8, write, "Do you want help?^), 
(9, input, keyboard) ), 
EE UE YES | yes" | "Y"l "y", (assert, help), st 1. 1, 45), 
МОН NO 1 по | N'I"n', (assert, check po, st 1. 1. 60), 
(assert, wrong ans), st 1] 1 45)) 


В 60. ( (0, clear), 
(5, write, “It is assumed that you wish to EXIT."), (O,quit) ), 
411 60) 


нині ОЗ ( (3, Clear), (5, clear), 
(3, мтце, "Let's take a look at the MOUSE again.”) ). 
Ert Пер), st 1 1 10) 


(st 1 1, 70, ( (7, write, “Don't be afraid to try pressing a button on the mouse."), 
(0, input, mouse), 
(9, input, keyboard) ), 
((15 seconds & (pastst 1. 1. 70 wait wait), st 1. 1. 55), 
(15 seconds & (pastst, 1. 1. 10 wait), (assert, wait wait), st 1. 1. 70), 
(click-left & (pastst 1 1 140 helplpastst 1 1 140 wrong ans),st ] 1 140), 
(сиск- ей: газзстие Јени а сан ин я 
(click-middle & (pastst 1 1 402X wrong),st 1 1 45), 
(click-middle & (pastst 1 1 35 wrong ans),st 1 1 40), 
(click-middle, (assert, mid), st 1. 1. 35), 
(click-right & (past st 1. 1 402X wrong),st 1 1. 45), 
(click-right & (pastst 1. 1. 35 wrong ans),st 1 1. 40), 
(click-right, (assert right su IFFK S 
(CHelp" | "Ido not know") & (pastst 1 1. 1O help), st 1. 1. 45), 
("Help" I "I do not know", (assert, help), st_1_1_65), 
((pastst 1 1 10 wrong ans & past st_1_1_35 wrong_ans), st_1_1_45), 
(assert оне а oe) 
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ENNEI S757 ((5, clear), (7, clear), (9, clear), 
(3, write, " You did not find the CONTINUE button. You must first move the position 
of the cursor so that the cursor 1s positioned within the rectangle labelled CONTINUE. 
Once you have positioned the cursor, click the left mouse button once."), 
(5, write, “Locate the CONTINUE button and click the left mouse button once."), 
(0, input, mouse), 
(9, input, keyboard) ), 
C(elick-continue & (pastst 1. 1. 175 helpl pastst. 1, 1, 175 wrong. ans), 
ШЕШЕ!” 160), 

(click-continue & (pastst 1 1. 165 helplpastst 1 1 165 wrong ans), 
sui 160), 

(click-continue & (pastst 1. 1. 160 helplpastst 1 1 160 wrong ans), 
SNC I 160), 

(click-continue & (pastst 1. 1 150 helpl past st 1. 1. 150 wrong ans). 
150), 

(click-continue & (past st 1 1. 145 helplpastst 1. 1. 145 wrong. ans). 
ШЕГІ 140), 

(click-continue & (past st 1. 1. 140 help! pastst. 1. 1. 140 wrong ans), 
zu] 40), 

(click-continue & (pastst 1 1 ll6helpl pastst. 1. 1. 116 wrong. ans), 
Este 0), 

(click-continue & (pastst 1. 1. 115 helplpastst. 1. 1. 115 wrong ans), 
SN 110), 

(click-continue & (pastst 1 1 110 helplpastst 1. 1. 110 wrong ans), 
st 1 1. 110), 

(click-continue, (assert, continue), st 1 6 1). 

ixssconds, (assert, wait), st 1. 1. 90), 

( Help" | "I do not know", (assert, help). st 1. 1. 45). 

(assert, wrong ans),st ] 1 45)) 
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(su 1.1. 80, ( (7, write, "Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (pastst 1. 1. 50 wait, wait), st 1. 1. 55), 
(15 seconds & (past st. 1. 1. 20 wait), (assert, wait wait), st. 1 1. 80), 
(click-left, Cassert, left), 25» 
(click-middle & (pasts 1. 1 402X wrong), st 1. 1. 45), 
(click-middle & (pastst 1. 1. 35 wrong ans), st 1 1 40), 
(click-middle (assert. mid), 5 07 
(click-right & (past st 1. 1. 402X wrong), st. 1. 1. 45), 
(click-right & (pastst, 1. 1. 35 wrong ans), st 1. 1. 40), 
(click-right, (assert, right), st. 1. 1. 35), 
(("Нер" | "I do not know") & (pastst 1. 1. 10 help), st 1. 1. 45), 
( Help" | "IL do not know", (assert, help), st 1. 1. 65), 
((past st 1. 1. 10 wrong, ans & pastst 1. 1 35 wrong ans), st 1 1 45), 


(assert, wrong ans),st 1 1 35 )) 


(st 1. 1. 85, ( (7, write, "Don't be afraid to try pressing a button on the mouse."), 
(0, input, mouse), 
(9, input, keyboard) ), 
(C15 seconds & (past sts) 1 sss waite ait), Stele. 
(15 seconds & (past st_l1_1_20 wait), (assem, wait_wait), st_ Io) Sony 
(mouse-move, st. 1. 1. 30), 
(click-continue, (assert, continue), st 1 6 1), 
("Нер" | "Гао not know" | "How", (assert, help), st 1. 1. 75), 
(assert, wrong ans), st 1 1 75)) 


(st 1. 1. 90, ( (7, write, "Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
((15 seconds & (pastst 1. 1. 90 wait wait), st 1. 1. 55), 
(15 seconds & (past st. 1. 1. 20 wait), (assert, wait wait), st, 1 1 90), 
(click-continue, (assert, continue), st 1 6 1), 


( Help" | "1 do not know", (assert, help), st 1. 1. 45), 
(assert, wrong ans),st 1 1 45)) 


ШЕ! ! 110, С, сеаг), 
(1, write, "Notice the 3 buttons that appear at the top of the screen."), 
имен Lheduttons are labelled HELP, CONTINUE, and EXIT.), 
(4, write, "These 3 buttons will always appear at the top of the screen while using the 
Physics of Sound tutorial. '), 
(7, write, "Let's take a look at how these buttons operate."), 
(9, write, “Click the mouse on the CONTINUE button when you are ready to move on 
m. m 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-continue, (assert, conunue), st 1 1. 120), 
€s conds, (assert, wait), st 1. 1. 115), 
(Help" | "I do not know", (assert, help), st 1. 1. 75), 
(assert, wrong ans),st 1 1 75)) 


(st 1 1. 115, ( (7, write, "Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (past st 1. 1. 115 wait, wart), st 1 1. 116), 


— ee 


(15 seconds & (past st 1 1 110 wait), (assert, wait. wait), st 1. 1. 115), 
(click-continue, (assert, continue), st 1 1 120), 
( Help" | "I do not know", (assert, help), st 1 1. 75), 


(assert, wrong ans),st 1 1l 75)) 


(Рт 116, ( (0, clear), 
(5, write, "You have not taken action. `), 
(8, write, "Do you want help?"), 
(9, input, keyboard) ), 
Mees | YES’ | yes’ | "Y"|"y’, (assert, help), st_1_1_75), 
ШОЛ ХО" І по" 1" 1 "п", (assert, check_pt), st_1_1_60), 
(assert, wrong ans),st 1 1 75)) 
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(StI ТОСО Е 
(1, write, "The HELP button can be used at any time. The button is designed to assist you 
when you are unable to determine the function of a specific feature on the screen."), 
(4, write, "To use the HELP button, move the cursor to the button labelled HELP located 
in the upper lefthand corner of the screen and click the left mouse button once."), 
(5, write, "You will then be guided through the use of the particular function that you 
requested."), 
(7, write, "Click the mouse on the HELP button"), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (chck-help & (pastst ]. 6 30 help! pastst. 1. 1. 30 wrong ans), (assert, help. button), 
st 1 0 20). 
(click-help & (past st 1. 6. 25 help! pastst ]. 1. 25 wrong ans), (assert, help button), 
СОКО 
(click-help & (pastst 1. 6 20 helplpastst 1 l 20 wrong ans), (assert, help. button), 
st 1 6520) 
(click-help, (assert, help button), st 1. 1. 140), 
(S-seconds (ае ма), СЕ зони 
Help" | "I do not know", (assert, help). st 1 1. 130), 
(assert, wrong ans), st. ]. 1. 130)) 


(st 1. 1. 125, ( (7, write, "Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (pastst 1. 1. 130 wait & pastst 1. 1. 125 wait. wait), st. 1. 1. 45), 
(15 seconds & (pastst 1 1. 130 wait), (assert, wait. wait), st 1. 1. 125), 
(15 seconds & (pastst 1. 1. 120 wait & pastst 1. 1 125 wait, wait), st 1. 1. 135), 
(15 seconds & (pastst. 1. 1. 120 wait), (assert, wait. wait), st 1. 1. 125), 


(click-help, (assert, help button), st 1. 1. 140), 


("Нер" | "I do not know", (assert, help), st 1. 1. 130), 
(assert, wrong ans), st 1 1. 130)) 
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ГЕР ЕТЗО/((1. сісаг), (4, clear), (5, clear), (7, clear), 

(1, write, "You did not correctly identify the HELP button. First, move the position of 
the cursor so that the cursor is positioned within the rectangle labelled 'HELP.' Once vou 
have positioned the cursor, click the left mouse button once. "), 

iue Locate the HELP button and click the left mouse button once." ), 

(0, input, mouse), 

(9, input, mouse) ), 

( (click-help, (assert, help. button), st 1 1. 140), 

(5 seconds, (assert, wait), st 1 1. 125), 
("Help" | "I do not know", (assert, help), st 1. 1. 45), 
(assert, wrong ans),st 1 1 45)) 


БИШЕ!” 135. ((О, сјеаг), 
(5, write, "You have not taken action. "). 
(8, write, "Do you want help?"), 
(9, input, keyboard) ), 
uM: I YES" | yes" I "Y" I "y", (assert, help), st 1. 1. 130), 
MECANO" no"l "NTI "n", (assert, check pt), st 1 1 60), 
(assert, wrong ans), st 1 1 130)) 


‚| 


(ЅС ТЕЕ ТАО ОЕ 
(1, write, "You have already seen the use of the CONTINUE button. The CONTINUE 
button 1s used to perform an action, such as moving the position of an icon or to accept 
input."), 
(4, write, "To use the CONTINUE button, move the cursor to the button labelled 
CONTINUE located in the upper left of the screen and click the left mouse button once."), 
(5, write, "Move the cursor to the CONTINUE button and click left mouse button once 
when you are ready to continue. . ."), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-continue & (pastst 1. 5 1O wrong ans), 15 1), 
(click-continue & (pastst 1. 4 5 wrong ans), st 1. 4 5), 
(click-continue & (pastst 1 4 1 wrong ans),st ] 4 1), 
(click-continue & (past st 1. 3 5 wrong ans),st 1 3 5), 
(click-continue & (pastst 1. 3 1 wrong ans), st 1. 3 1), 
(click-continue & (pastst 1. 3 1 wrong ans). st 1. 3 1), 
(click-continue, (assert, continue), st 1 1. 160), 
(5 seconds, (assert wait SESS). 
( "Help" ] "Edo not know ^; (assert help mimi, 
(assert, wrong ans), st 1 1 75)) 


(31 1 1 145, ( (7, write, "Don't be afraid to trv pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (past st 1. 1. 140 wait & past st 1. 1. 145 wait, wait), st. 1. 1. 150), 


(15 seconds & (past st 1. 1. 140 wait), (assert, wait wait), st 1. 1. 145), 


(click-continue, (assert, continue), st 1 1. 160), 


( Нар |l Tdo not know "(азан Пер оо пинин ите та 
(assert, wrong ans),st 1 1 75)) 


(st Ше асар! 
(5, write, "You have not taken action. '), 
(8, write, "Do you want help?"). 
(9, input, keyboard) ), 
(Xes | "YES lI "yes LY oo үле е ШЕ p F Bp PIE T 
(No. lNO" "no" "N" "n" (assert, checkin) ЕЕ 
(assert, wrong_ans), st_1_1_75)) 


сл 
1-2 


IE 00, ( (0, clear), 
(1, write, "The EXIT button 1s used when vou are ready to stop working on the Physics 
of Sound tutorial."), 
(3, write, “If you are in the midddle of the tutorial when you EXIT, the system will keep 
track of where you left off and you will restart at this point the the next time you logon."), 
(4, write, "The EXIT button will always be located in the upper righthand corner of the 
Scene, 
(6, write, "We will not experiment with the EXIT button at this time since it is assumed 
you wish to continue on with the tutorial"), 
(7, write, "Click the mouse on the CONTINUE button when you are ready to move on. 
Tu 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-continue, (assert, conunue). st 1. 6 1), 
(5 seconds, (assert, wait), st 1 1. 165), 
ШАО | T do not know", (assert, wait), st 1. 1. 75), 
iserp wrong ans),st 1 1 75)) 


(55 1 1 105, ( (7, write, "Don't be afraid to try pressing a button on the mouse."), 

(0, input, mouse), 

(9, input, keyboard) ), 

( (15 seconds & (pastst 1. 1. 160 wait & pastst 1. 1. 165 wait wait), st 1. 1. 175), 
(15 seconds & (past st 1. 1 160 wait), (assert, wait, wait), st. 1. 1. 165), 
(click-continue, (assert, continue), st 1 6 1). 

(Help" ! "I do not know", (assert, wait), st 1 1 75), 
(assert, wrong ans), st 1 1 75)) 


I: 75. ( (0, clear), 
(5, write, "You have not taken action."). 
(8, write, "Do you want help?"), 
(9, input, keyboard) ), 
ШО ОО YES "yes" | "Y"4ey", (assert, help), st 1. 1. 75), 
Ко МО" "no" I "N"I"n", (assert, check pt). st 1 1 60), 
(assert, wrong ans),st 1. 1. 75 )) 


гл 
22 


кжжжжжжжжжжжжжжжжжжжжжжж МАЄТЕВУ TEST 1.6 кжжжжжжжжжжжжжжжжжжжжжж/ 


(sU Lo Сени 
(1, draw, mouse_sym), 
(4, write, "As you know, the mouse is required for interaction with the Physics of Sound 
tutorial."), 
(7, write, "Click the left mouse button once on the CONTINUE button to move on to the 
next task 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-continue, (assert, continue), st 1. 6 20), 
[5 secongdsuitassekbavalt Б О 
Help’ | “I do not know’, (assem, help) Іт 
(assert, wrong ans), st 1 1 25)) 


(st 1. 6 5, ( (7, write, "Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (pastst. 1. 6 5 wait wait), st 1 6 10), 
(15 seconds & (pastst 1 6 1 wait), (assert, wait. wait), st. 1. 6 5), 


(click-continue, (assert, continue), st 1 1. 110), 


(Help | "I do not know", (assert, help), st 1 1. 25), 
(assert, wrong ans),st 1 1 25)) 


(БС ОЗО Oe clean 
(5, write, “You have not taken аспоп."), 
(8, write, “Do you want help?"), 
(9, input, keyboard) ), 
(CYes" | YES: | уе ето elpe 
("Мо 1 "МО І no"l N uy Gss o са то на 
(assert, wrong ans),st 1 1l 25)) 


(st 126 20 ( O cle 
(1, write, "Experiment with the HELP button until you feel comfortable with its use."), 
(7, write, "Click the mouse once on the CONTINUE button when you are ready to move 
Ole К 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-help, (assert, help. button), st. 1. 6. 20), 
(click-continue, (assert, continue), st 1 2 1), /* NEXT MT */ 
(5 seconds (assert, wain. St СИ 
( "Help" | "I do not know", (assert, help), st 1 1 120), 
(assert, wrong ans).st 1 1 120)) 


(st 1. 6 25, ( (7, write, “Don't be afraid to try pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (past st 1 6 20 wait wait), st 1 6 25), 
(15 seconds & (past st 16 20 wait), (assert, wait wait), st 1 6 30), 
(click-help, (assert, help button), st 1 6. 20), 
(eliek-continue, (assert, continue), st 1 2. 1), /* NEXT MT */ 
( Help" | "I do not know", (assert, help), st 1. 1. 120), 
(assert, wrong ans),st 1 1 120)) 


ЕНЕСЕЙ!) ((О, сісаг), 
Eme You have not taken action." ), 
(8, write, "Do you want help?"), 
(9, input, kevboard) ), 
feet YES | yes | "Y" "v". (assert, help), st 1. 1. 120), 
EN NO |'no'|l"N"1"n", (assert, check pt). st 1 1. 60). 
(assert, wrong ans), st 1 1 120)) 


Тоа j са 4. 9. 28- 2E. о об. иа иат чуо ғаға а ж. 


(1, write, "Now that you have become familiar with the use of the mouse, let's move on 
to another topic. "), 

(2, write, "In order to study the physics of sound, there are 3 basic properties that must 
existe ), 

(3, write, SOURCE, SOUND, and DETECTOR), 

Ete. First, let's dicuss the term SOURCE. "). 

(0, pause, 30) ), 

sc 5) 


EE S. ( (0, clear), 


(6ї_12_5 (ЧОК е 

(1, draw, source), 

(3, write, "A SOURCE is any object that moves or vibrates disturbing the medium around 
Ht 

(5, write, "The SOURCE is represented by a FISH, as is shown in the upper lefthand 
corner of the. screen 

(8, write, "Locate the SOURCE by moving the position of the mouse to the FISH and 
chck'the left mousedbuüttemnmonc c 

(1, input, mouse) ), 

( (click-left, (assert, left), st. 1. 2. 10), 

((click-middle | click-right) & (past st 1. 2 25 wrong ans), (assert, help), st 1. 2 30), 


(click-middle, (assert, mid), st 1. 2 25), 
(click-right, (assert, right), st 1. 2 25), 
(> Seconds: (assert, walt) sie S 


Help" | "I do not know", (assert, help), st 1. 2 30), 
(assert, wrong. ans), st. 1 2 30)) 


(st 12 10 (оне гај clean Е 

(3, write, Great! You were able tollocate ihe SOURGE. ). 

(4, write, “Now, what can you do with the SOURCE?"), 

(5, write, "You cannot move the SOURCE since in a real world situation you will have 
no control over the location of a source." ), 

(0, pause, 45) ), 

s NIS 


(st 1 2 15,((7, write, "Don't be afraid to move the cursor over the SOURCE location and 
pressing a button on the mouse. ), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (pastst 1. 2 15 wait wait), st 1. 2 20), 
(15 seconds & (pastst 1. 2. 5 wait), (assert, wait, wait), st 1. 2. 15), 
(chek left (assert leiri о пио) 
((click-middle | click-right) & (pastst 1 2. 25 wrong, ans), (assert, help), st 1. 2. 30), 
(click-middle, (assert, mid), st 1. 2 25), 
(click-nght, (assert, right), st 1 2 25), 
CHelp" | "I do not know", (assert, help). st 1 2 30), 
(assert, wrong ans),st 1 2 30)) 


2 
2 


Em» 20. ( (0, clear), 
(5, write, "You have not taken action." ). 
(8, write, "Do you want help?"), 
(9, input, keyboard) ), 
КО YES | yes’ | "Y" I "y", (assert, help,st 1 2 30), 


SESONO" "no" | "N" I "n", (assert, check pt), st 1 1. 60), 
(assert, wrong ans), st 1 2 30)) 


№ 5G, clear), (5, clear), (8, clear), 

(3, write, "That is the incorrect button. Remember, the MIDDLE and RIGHT mouse 
buttons do not perform any function. Try again.") ), 

ӘНЕ) 5) 


В 350. ( O, clear), (5, clear), (8, clear), 


(3, write, "Let's review how to move the cursor using the mouse.") ), 
ии аси пер), в. 1 1 25) 


Гаж жожо около END SOUR (CE > s у 
Pe CO oki RR M A STERY TEST 1.7 FE 26 * 6 a ao ack a OR tec o kk / 


/* DO NOT NEED MT AFTER SOURCE MOD -- TOO SIMPLISTIC `/ 


(Б ЭШЕ |, ( (0, с]еаг), 
(1, write, "A MEDIUM 1$ а substance regarded as the means of transmission of a force 
ес), 
(4, write, "Becasue the POST deals specifically with underwater sound, the MEDIUM 
through which the sound travels is SEA WATER."), 
(7, write, "The successful transmission of sound is dependent on the ability of the 
MEDIUM to react to changes in pressure originated by the sound SOURCE. "), 
(8, write, "Click the CONTINUE button when you are ready to move on..."), 
(0, input, mouse) ), 
( (click-continue, (assert, continue), st_1_3_ 5), 
fe8 seconds, 51 1 3 5), 
(assert, wrong ans),st 1 1 140)) 
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(521829 СОКЕ 

(1, write, "To pass on sound, the MEDIUM must have the capability to respond to 
variations or changes in the SOURCE pressure fluctuations."), 

(4, write, "Sea water possess the quality called ELASTICITY. This means that the sound 
pressures causes physical movement of the water molecules which return to their normal 
state following the passage of SOUND.”), 

(7, write, "The travel of sound through a MEDIUM is called PROPOGATION."), 

(8, write, "Click the CONTINUE button when you are ready to move on..."), 

(0, input, mouse) ), 

( (click-continue, (assert, continue), st 1 4. 1), 

(300 seconds, st_1_4_1), 
(assert, wrong ans), st 1. 1. 140) ) 


ай ав, ай аба або 0 а абе а аба ат ЈАНА ОР АЈА СОВА о А СА а pas cU 


Съра C O coa) 

(1, draw, path), 

(3, write, "SOUND is a mechanical wave motion that is generated or propagated in an 
elastic MEDIUM."), 

(4, write, "SOUND is represented by a line. Since SOUND has direction, the line will 
point in the direction that the sound is travelling. In the upper lefthand corner of the screen, 
you can see a SOURCE with its SOUND."), 

(8, write, "Click the CONTINUE button when you are ready to move on . . ."), 

(0, input, mouse) ), 

( (click-continue, (assert, continue), st 1 4 5), 

(300 seconds, st 1 473) 
(assert, wrong ans), st 1 1 140)) 


ШЕРІ 5 ( (3, clears), (4, clear), 
ur ue. This line is called a RAY PATH. "), 
(8, write, "Click the CONTINUE button when you are ready to move on . . ."), 
(0, input, mouse) ), 
( (click-continue, (assert, continue), st 1 5 1), 
(300 seconds, st 1. 5 1), 
(assert, wrong ans),st 1 1 140)) 


/* DO NOT NEED MT AFTER SOUND MOD -- TOO SIMPLISTIC i 


MEER ENTE ENTER Sg ER SE RESET Р ЕТ Р о и р и к ыга а ши 


КШ (6, clear), 
(1, draw, detector), 
(2, write, "A DETECTOR is the RECEIVER of SOUND."), 
(4, write, "The DETECTOR is represented by à as 1s located in the 
upper lefthand corner of the screen."), 
Emu Locate the DETECTOR by placing the cursor in the DETECTOR and click 
the left mouse button once."), 
(1, input, mouse) ), 
Eek left, (assert, left), st 1. 5 10), 
((click-middle | click-right) & (past st. 1. 5. 25 wrong ans), (assert, help), st 1. 2 30), 
Encimiddle, (assert, mid), st 1 5 25). 
(click-right, (assert, right), st 1. 5. 25), 
INSseconds, (assert, wait), st 1. 5. 15), 
("Help" | "I do not know", (assert, help), st 1 5 30), 
(assert, wrong ans),st 1 5 30)) 


(541 15 TOS еј ен се 

(3, write, "Great! You were able to locate the DETECTOR. "), 

(4, write, "Now, what can you do with the DETECTOR?"), 

(7, write, "The position of the DETECTOR can be determined by you. To change the 
position of the DETECTOR, position the cursor inside the DETECTOR. Hold down the 
left mouse button and drag the mouse until the DETECTOR moves to the position you want 
it and then release the left mouse button."), 

(8, write, "Click the CONTINUE button when you are ready to move on . . ."), 

(0, input, mouse) ), 

( (click-continue, (assert, continue), st 1. 5 35), 

(300 seconds, st_1_5_35), 


(assert, wrong ans),st 1 1 140)) 


(st 1. 5 15, ( (7, write, "Don't be afraid to move the cursor over the DETECTOR location 
and pressing a button on the mouse. "), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (pastst 1. 5. 15 wait. wait), st 1 5 20), 
(15 seconds & (past st 1. 5. 5 wait), (assert, wait wait), st 1. 5 15), 


(click-left (assert len Sp DESI. 

((click-middle | click-right) & (past st 1. 5 25 wrong ans), (assert, help), st 1. 5. 30), 
(click-middle, (assert, mid), st-1 75 25). 

(click-right, (assert, right), st 1. 5. 25), 

("Help" | "I do not know", (assert, help), st_1_5_30), : 

(assert, wrong ans), st 1. 5 30)) 


(st%@#]x5 20 ( (O clear): 
(5, write, "You have not taken action. ), 
(8, write, "Do you want help?"), 
(9, input, keyboard) ), 
(Yes | "YES | уе й (мані (азота lp в 0 
(“Мо 1 "МОТ "по" 1 УМ (ОЗЕ ЕСС ОТЕ ия 
(assert, wrong ans),st 1] 5 30)) 


(st-1 5225, ( S. clear O lea ЕСА 

(3, write, "That 1s the incorrect button. Remember, the MIDDLE and RIGHT mouse 
buttons do not perform any function. Try again.") ), 

(assert, wrong ans),st 1 5 1) 


(5512 30. ( (3, ссаг), (9, мес ео й 


(3, write, "Let's review how to move the cursor using the mouse.") ), 
СЕЗ Петр ste eo 
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INIM 5. ( (2, clear), (3, clear), (4, clear), (7 ,.elear), 
(2, write, Try changing the position of the DETECTOR. "), 
Exon Chckthe CONTINUE button when you are readv to move on . ..”), 
(0, input, mouse), 
(9, input, keyboard) ), 
Пек“ ет, (аззеп, move_detector), st_1_5 50). 
ЕЕК Сопипое, (assert, continue), st 1 10 1), 
Mee econds, (assert, wait), st 1. 5 45), 
("Help" | "I do not know", (assert, help), st 1. 5 1), 
(assert, wrong ans),st 1] 5 1)) 


(st 1. 5 40, ( (0, clear, detector(2 (detector.x, detector. y)), 
(1, draw, detector imouseX, mouseY) ) ), 
SENS 55) 


(st 1. 5 45, ( (7, write, “Don't be afraid to change the DETECTOR location."), 
(0, input, mouse), 
(9, input, keyboard) ), 
( (15 seconds & (past st 1. 5 45 wait, wait), st 1. 5. 20), 
ши ссопав в: (past st 1. 5 35 wait), (assert, wait wait), st 1. 5. 45), 
(click-continue, (assert, continue). st 1 10 1), 
fein | 1 do not know", (assert, help), st 1. 5. 1), 
(assert, wrong ans), st 1 5 1)) 


КАШ 50.( (1, clear, detector(9 (detector.x, detector. v)), 


(1, draw, detector(2 (mouseX. mouseY)) ), 
СИ 35) 


БЕРЕР I. ( (0, clear), 
(1, draw, source@(mouseX, mouseY) ), 
(1, draw, path@(mouseX, mouse Y) ), 
(1, draw, detector@(mouseX, mouseY) ), 
(7, write, "Move the DETECTOR so that the SOUND will hit the DETECTOR."), 
(0, input, mouse) ), | 
( (click-left, (assert, move detector), st 1. 10. 10). 
fe seseconds, (assert, wait), st_1_10_20). 
5 1_10 20)) 
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(st 1. 10. 10, ( (1, clear, detector(? (detector.x, detector. y)), 
(1, draw, detector(2 (mouseX, mouseY)) ), 
( (click-left & (mouseX <= sound.x + halfwid & mouseX >= sound.x - halfwid & 
mouse Y <= sound.y + halfht & mouseY >= sound.y - halfht), (assert, hit), st 1. 10 15), 
(click-left & ( (past st_1_10_10 miss_left) | 
(pastst 1. 10. 10 miss right) 
(past st. 1. 10. 1O miss low) 
(past st. 1 10. 10 miss. high)), (assert, help), 
st_1_10_30), 
(click-left & (mouseX < sound.x - halfwid), (assert, miss_left), st_1_10_20), 
(click-left & (mouseX > sound.x + halfwid), (assert, miss right), st 1 10 20), 
(click-left & (mouseY « sound.y - halfht), (assert, miss low), st 1. 10. 20), 


(click-left & (mouseY » sound.y ^ halfht), (assert, miss high), st 1. 10. 20), 
(45 seconds, (assert, wait), st 1 10 20) )) 


(5:1 10715 еу 

(7, write, "Very good. You positioned the DETECTOR correctly.") 

). 
s а) 


(БЕСТЕ ТОСОО СЕ х 


(4, write, "Do you need HELP in howto move the DETECTOR I 
(9, input, keyboard) ), 


((CYES | Yes’ | уеб” | бу sy je (assert, ele И 
(ONO | "мо "ао" © О ОО 
((past st, 1. 10. 30 move detector) | (past st 1. 10. 30 miss. again)), 


(assert, help), st 1. 1. 45), 
(CNO" | "No" | "no" ln" | "N^ ) & (past st_l_10_10 miss Тен), 5С ТОЕ 
(CNO" | "No" | "no" | "n" | "N") & (pastst 1. 10 10 miss right) & 
((past st 1. 10. 30 move detector) | (past st. 1. 10. 30 miss. again)), 
(assert, help) sta кеја 
(СКО I1 "No" | "no" |] "n" | "NY & (past st_l_10_10 miss віспі), 50 1 NEN 
(CNO" | "No" | "no" | "n" | "N") & (pastst 1. 10. 10 miss low) & 
((past st 1. 10. 30 move detector) | (past st 1. 10. 30 miss. again)), 
(assert, help), st_1_1_45), 


(СКО" | "No" | "no" | "n" I "N") & (pastst 1. 10 10 miss low), st 1. 10. 40), 
СМО" | "INO" | "no" | "n УМ Араз O 


((past st. 1. 10. 30 move detector)! (past st 1 10 30 miss again)), 
(assert, help), st 1. 1. 45), 


(CNO" | "Мо" | "no" | "n" | "N") & (раѕг т 110 10 02155 те уже ТО 
(300 seconds, (assert, wait), st 1. 1. 60) )) 
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CIEN? 5, ( (7, clear), 
(4, write, "You moved the DETECTOR too far to the left."), 
(7, write, "Try again.") ), 
SENI ]) 


mere 50) ( (4, clear), (7, clear), 
(4, write, “To position the DETECTOR correctly, the RAY PATH must hit some part of 
the DETECTOR.”), 
(7, write, “Move the DETECTOR so that the SOUND will hit the DETECTOR."), 
(1, input, mouse) ), 
( (click-left, (assert, move_detector), st_1_10_10), 
(assert, miss again), st 1. 10. 20) ) 


ГЕНЕ 35. ( (7, clear), 
(4, write, "You moved the DETECTOR too far to the right."), 
(7, write, "Try again.") ). 
ШЕШЕ!) 1) 


INNO. ( (7, clear), 
(4, write, "You moved the DETECTOR too far to the low."), 
(7, write, "Iry again.") ), 
КО 10 1) 


СМИ 45, ( (7, сеаг), 
(4, write, "You moved the DETECTOR too far to the high."), 
(7, write, "Try again.") ), 
ШЕ 101) 


и р Tui M ӨТЕ Жы т.е 
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/* TASK - Direct Path: */ 


(СУ ТОСО 
(1, draw, source@(mouseX, mouseY)), /* center pt of mouse*/ 
(1, draw, path@(mouseX, mouse Y)), /* Direct Path */ 
(1, draw, detector(Q(mouseX, mouse Y)), 
(7, write, "Move the DETECTOR so that the SOUND will hit the ОПЕТЕСТОКОЈ 
(0, input, mouse), 
(9, input, keyboard) ), 
( (click-left, (assert, move detector), 51 1 7 10), 
(45 seconds, (assert, wait), st 1. 10 20), 
("Help" | "Ido not know" | "How", (assert, help), st 1, 5. 10), 
ste 200 


(5: 1 7. 10, СИ, clear, detector(à (detector.x, detector.v)), 
(1, draw, detector@(mouseX, mouseY)) ), 
( (click-left & (mouseX «2 sound direct.x 4 halfwid & 
mouseX »- sound direct.x - halfwid & 
mouseY «- sound direct.y + halfht & 
mouseY »- sound direct.y - halfht), (assert, hit), st, 1. 7. 15), 


(click-left & ((pastst 1. 7. 10 miss left) | (past st 1. 7. 10 miss right) 
| (past st 1. 7 1O miss low)l(pastst. 1. 7 10 miss high)), 
(assert, help), st 1 7 30), 

(click-left & (mouseX « sound direct.x - halfwid), 

(assert, miss ЧЕМ) оО 

(click-left & (mouseX » sound direct.x 4 halfwid), 

(assert, miss right), st 1. 7. 20), 

(click-left & (mouseY « sound direct.y - halfht), 

(assert, miss_low), st_1_7_20). 

(click-left & (mouseY > sound_direct.y + halfht), 

(assert, miss mgh) А 


(45 seconds, (assert, wait), st 1 7. 20) ) ) 


(ВЕ CIS 
(7, write, "Very good. You positioned the DETECTOR correctlv.") 


). 
st 7 100) 
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КАШ ((7, сісаг), 
(4, write, "Do you need HELP in how to move the DETECTOR?"), 
(9, input, keyboard) ), 
ШЕШЕ? Yes | yes | y" L^Y^5, (assert, help), st 1 5 1), 


I OUI Хо по n" I"N^) & (pastst 1 7.10 miss left) & 


((pastst 1. 7 30 move detector)! (past st 1. 7. 30 miss. again)), 
(посете по 45), 
m UU No | no'|"n'|"N)&(pastst 1 7 10 miss left), st 1 7 25), 
(МО 1 "No" | "no" | "n" | "N") & (pastst 1 7. 10 miss right) & 
((past st 1. 7. 30 move detector) | (past st 1. 7. 30 miss again)), 
(assert, help), st 1 1 45), 
foo | No | no'| n'| "N") &(pastst ] 7. 10 miss right), st. 1. 7. 35), 
(CNOQ" | "No" | "no" | "n" I "N") & (pastst 1 7. 10 miss low) & 
((past st 1 7 30 move detector) | (past st. 1. 7. 30 miss. again)), 
1965. пе), 511 45), 
EN UU No |'no'| n" | N") & (past st 1. 7 10 mss low), st 1. 7. 40), 
ШО! No' |"no'] n'|I"N) &(pastst 1 7 10 mis high) & 
((past st 1. 7. 30 move detector)! (past st 1. 7. 30 miss. again)). 
(assert, help), st 1. 1. 45), 
EEUU No Ino" | "n" | "N') & (pastst 1. 7. 10 miss high), st 1. 7. 45), 
i uNseconds, (assert, wait), st 1. 1. 60) )) 


КАШ 5. (C, clear), 
EN. You moved the DETECTOR too far to the left."), 
uie, "ry again. ) ), 


Sy] ) 


СА N50. ((4, clear), (7, clear). 
(4, write, "To position the DETECTOR correctly, the RAY PATH must hit some part of 
the DETECTOR.''), 
(7, write, "Move the DETECTOR so that the SOUND will hit the РЕТЕСТОВК.”), 
(1, input, mouse) ), 
( (click-left, (assert, move detector), st 1 7 10), 
(assert, miss again), st 1. 7 20)) 


E5755, ( (75 clear), 
(4, write, "You moved the DETECTOR too far to the right."), 
(7, write, "Iry again.") ), 
БИШІ / 1) 


(st 1-740 T eE 
(4, write, "You moved the DETECTOR too far to the low."), 
(7, write, "Try again.") ), 
СС Е) 


(st] 7245 C (ole n 
(4, write, "You moved the DETECTOR too far to the high."), 
(7, write, "Try again.") ), 
58 иа 


/* End TASK Direct Path */ 
/* TASK Reflected Surface Refracted (RSR) */ 


(st У ОООО Есау 

(1, draw, source(Q(mouseX, mouseY ) ), 

(1, draw, path@(mouseX, mouseY) ), /* RSR Path */ 

(1, draw, detector@(mouseX, mouseY) ), 

(3, write, "Move the DETECTOR so that the SOUND will hit the DETECTOR. ), 

(0, input, mouse), 

(9, input, keyboard) ), 

( (click-left, (assert, move. detector), st 1. 7. 110). 
(45 seconds, (assert. wait) s m еј 
("Help" I| "I do not know" I "How", (assert, help), st 1757 
ЕО 


(st. 1.7 110, CL, clear; detector есею Часо у 

(1, draw, detector(2 (mouseX, mouseY)) ). 

( (click-left & (mouseX «2 sound. RSR.x ^ halfwid & mouseX »-2 sound RSR.x - 
halfwid & mouseY «2 sound. RSR.y -* halfht & mouseY >= sound RSR y - halfht), 
(assert hip scel UE 8 

(click-left & ((pastst 1. 7. 110 miss left)! (pastst 1. 7. 110 miss right) 
| (pastst. 1. 7 110 miss low)l(pastst 1 7. 110 miss high)), 

(assert, help) ара ТІ 
(chck-left & (mouseX « sound. RSR.x - halfwid), (assert, miss. left), st 1. 7. 120), 
(click-left & (mouseX > sound_RSR.x + halfwid), (assert, miss right), st 1. 7. 120), 
(click-left & (mouseY < sound_RSR.y - halfht), (assert, miss low), st 1 7. 120), 
(click-left & (mouseY » sound. RSR.y - halfht), (assert, miss. high), st 1. 7. 120), 
(45 seconds, (assert, wait), st 1 7. 120) )) 
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EU 23115, ( (7, clear), 
(7, write, "Very good. You positioned the DETECTOR correctly."), 
(0,quit)), 
ШЕГЕ” 115) 


Eum 06, ( (7, clear). 
(4, write, "Do you need HELP in how to move the DETECTOR?"), 
(9, input, keyboard) ), 
Е | Yes" | "yes" I "y" 1" Y^), (assert, help) st 1 5 1), 


(CNO"| "No" | "no" | "n" | "N') & (pastst 1. 7 110 miss left) & 
((past st. 1. 7. 130 move. detector) | (past st. 1. 7. 130 miss. again)), 
(assert, help) st 1 1-45), 
mL OU No |"no'|"n" | "N) & (pastst I. 7. 110 miss left), st 1 7. 125), 
(CNO" | "No" | "no" | "n" I "N') & (pastst 1. 7. 110 miss right) & 
((past st, 1. 7. 130 move detector) | (past st. 1. 7. 130 miss. again)), 
(assert, help), st 1. 1. 45), 
(CNO" | "No" | "no" I "n" | "N') & (pastst 1. 7 110 miss right), st 1 7. 135), 
EOD No |"no"|"n"I "N') &(pastst 1 7 11O miss low) & 
((past st 17 130 move detector)! (past st 1. 7. 130 miss, again)), 
assert. help)sst- L1] 45). 
ПОЛА No |"no"I"n" I "N") & (pastst I. 7. 110 miss low), st. 1. 7. 140), 
MD ONU Ко | "no" n" I "N") &(pastst 1. 7. 110 miss. high) & 
((past st 1 7. 130 move detector) | (past st 1. 7. 130 miss. again)), 
(assent help) st 1 1 45), 
(CNO" | "No" | "no" | "n" | "N') & (pastst 1. 7. 110 miss. high), st 1. 7. 145), 


(300 seconds, (assert, wait), st 1. 1. 60))) 


Eu 25. ( (7, clear), 
(4, write, "You moved the DETECTOR too far to the left."). 
(7, write, "Try again.") ), 
Sm 100 ) 


DENN 50, ( (4, clear), (7, clear), 
(4, write, "To position the DETECTOR correctly, the RAY PATH must hit some part of 
the DETECTOR.''), 
(7, write, " Move the DETECTOR so that the SOUND will hit the DETECTOR. ^), 
(1, input, mouse) ), 
uc uck-lett, (assert, move detector). st 1 7 110), 
(assert, miss, again), st 1 7. 120)) 
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(st-1. 72135 а. 
(4, write, "You moved the DETECTOR too far to the right."), 
(7, write, "Try again.") ), 
5 1 7 100) 


(st 1-2 140 (ии mn) 


(4, write, "You moved the DETECTOR too far to the low."), 
(7, write, "Try again.") ), 
st 1 7 100) 


(5517 145 Сеат 
(4, wnrte, "You moved the DETECTOR too far to the high."), 
(7, write, "Try again.") ), 
st 157 1000 


/* End TASK Rss 
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APPENDIX C 
GRAMMAR 


cfd, graph ::- cfd. graph cfd node | cfd_node | с menu cfd node 
ШЕШ е: = '("cfd jd , action list "," response. list )" | identifier ":=" string 
cfd menu ::= "(" "menu" string menulist ")" 
ППИ = string "-7" cfd 1d "," menulist| string "-»" cfd 1d 
ПИО -:= identifier 
пио се ("act node list ')" l action. node 
response list ::- "(^ res node list ")" l| response node 
femen node ::= "(" region_id ",’ action ")” 
uode list ::= act_node_list ",” action_node | action. node 
ша попзе node ::= "(" pattern "," cfd_id ") 
ШО em , ( "assert" "," identifier ")" "," cfd id ) 


tf ott 


| "(" pattern "," "ignore" ") 
Мека, ( "assert , identifier ")” „ прпоте ) 
mee assert, identifier)" ", cfd_id| cfd_id 

K s e list ::— res node list "," response. node 
| response. node 

region id ::= integer | region, id "+" Integer 


ви — draw" ","3dentfier | "draw" "," 1denufier "(Q" location. | "clear" 
| "clear" "," identifier "@" location | "write" ",” string | “input 
| "pause" "," integer | "drag identifier | "quit" 
input list ::- "mouse" |l "keyboard" | "mouse&key" 
оп ::= ("loc part "," loc part °)" 
loc_part ::= loc_part "+" term | loc_part "-" term | term 
Кели. (етта ~ factor! term "/" factor | factor. 
factor ::= integer | "mouseX" | "mouse Y" | identifier ' 
| "halfht" | "(" loc part ")" 
patpart ::- keywords | "click-left" | "click-right" | "click-middle" | "click-any" 
| loc part reloploc part | "click-exit" | "click-help" | "click-contnue^ 
| "mouse-move" l integer "seconds" | "past" cfd id identifier | "(" pauern 7)" 
patcon] ::= patpart |! patconj "&" patpart 
pattern ::= patconj | pattern "|" patconj 
F -=-- | = |“< | >= | "<=" 
keywords ::= string 


" 


о ри: 


tt ott otf 


! 


ж чеп шие “у ЛАША" 


- 
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APPENDIX D 
lex AND yacc FILES 


А. parser.h - HEADER FILE 


/* defines for cfd data structures and values */ 


/* region codes, ord to make resultant code */ 
define REG ALL 0 
define REG. ONE. 1 
define REG. TWO 2 
define REG. THREE 4 
define REG. FOUR 8 
define REG. FIVE 16 
#define REG SIX 32 
#define REG _ SEVEN 64 
#define REG_EIGHT 128 
#define REG_NINE 256 
#define REG. OTHER 512 


/* action codes */ 
define ACT NULL 0 
#define ACT DRAW 1 
define ACT CLEAR 2 
4define ACT WRITE 3 
define ACT. INPUT 4 
define ACT PAUSE 5 
8define ACT QUIT 6 
#define ACT DRAG 7 


/* input modes */ 

#define MODE_NULL 0 
#define MODE_MOUSEONLY 1 
#define MODE_KEYONLY 2 
#define MODE_MOUSEKEY 3 
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/* response codes */ 

define RES. NULL 0 

s$dehine RES. KEY ] 

пи КЕ СІЛСКІ БЕТ 2 

define RES. CLICKRIGHT 3 

define RES. CLICKMID 4 

4define RES. CLICKANY 5 

define RES. MOUSEX = 6/* unused */ 
define RES. MOUSEY  7/* unused */ 
define RES MOUSEMOVE 8 

#define RES SECONDS 9 

#define RES PAST 10 

#define RES_CLICKHELP 11 

#define RES_CLICKCONT 12 

zdenne RES CLICKEXIT 13 


/* operator codes */ 

#define OP_NULL 0 

&define OP GREAT 1 

#дейпе ОР СЕО 2 

sdefine OP EQ 3 

#define OP_LEQ 4 

#define OP_LESS 5 

#define OP_AND 6 

#define OP_OR 7 

#дећпе ОР КЕУОК 8 /* unused */ 


struct expnode ( 
struct expnode *left, *right: 
сһаг ор; /* only checked if left or right isn't null */ 
char *varname; /* mousex, mousey, or graph id */ 
char comp; /* x, y or blank */ 
int val; /* integer value in expression */ 

5 

struct locnode | 


Еишшовехрподе *x, *y; 


|; 


e 


struct actnode ( 
intactloc;  /* region codes ord together */ 
intaction; /* action code */ 
char *info_str; /* string arguments to action, including graph filename */ 
int info_int; /* integer arguments to action, including input mode */ 
struct locnode *info_loc; /* location arguments to action */ 
Struct actnode *mext: /* next actlonmisl | 


JE 


struct opnode ( 
struct opnode *left; /* left arg to operator */ 
int operator; /* operator code */ 
struct opnode *night; /* right arg to operator */ 
Int TES act ae) тезро сосе 
struct expnode *res left, *res right; /* expression arguments to response */ 
intres int; /* integer argument to response, including seconds */ 
char *res str; /* string argument to response . includeing keywords */ 


): 


struct resnode { 
struct opnode *expr; /* expression tree to match response */ 
char *label; [7 AsSeition label, 
struct cfdnode *node: /* node to go to if match response, null to ignore */ 
struct resnode “next, m next response opion | 


J; 


struct cfdnode { 
char *nodeid; 
struct actnode *actlist; 
struct resnode *reslist; 
struct cfdnode *next; 


| 


struct menunode | 
Char “choice: 
Struct cfdnode *state: 
Struct menunode *next; 


ү 





struct menu ( 
char *title; 
struct menunode *choices; 


y 


#ifdef MAIN 

#define EXTERN 

#else 

#define EXTERN extern 
#endif 


EXTERN struct cfdnode *cfdgraph; 
EXTERN struct cfdnode *cfdlist; 
EXTERN struct menu *topmenu; 


struct picnode ( 

char *picid; 

char *picfile: 

struct picnode *next; 

h 

EXTERN struct picnode *pichist: 


struct cfdnode *findnode(): 


B.  parser.| - LEX 


%{ 

#include <stdio.h> 
#include "y.tab.h" 

int yylineno; 

int yylen; 

int intval; 

Static int is_comm = 0; 
спа ао) 

%) 


%% 

[ N|+ 
#[\n]* 
\n 
NN 

Уу 
\+ 

NE 

V 

(0 

N 

5 

N 

У 


Ne 


\< 

Ao 

= 

\> 
р 


(ууПпепо++, |, 


(ПОСОЛ Е 

lis comm S0) 

lf (hs comm) (reum ОК ADIT p 

f (is. comm) (| геїце (ТОК SUBTRACT aie 
if (hs. comm) (return(TOK. TIMES)! ; 

{if (4is_comm) {return(TOK_DIVIDE);}} ; 

ГІТ (116 сой) [тетт ТЕЕ 

{if (is comm) {retum( TORSBAR). |= 

(f (lis comm) {retum(TOK_COMMA):}} ; 
{if (!is_comm) {return(TOK_OPENPAREN); } } 
(if (is. comm) (retum(TOK. CLOSEPAREN);| 
{if (!is_comm) {retum(TOK_GREATEQ);}} ; 
Hif (is; comm) [return( TOK. LESSEQY: IE 

(1# (115 comm) (retum TOET EOUME Di 

(1f (is. comm) (return(TOK ТЕ55) 1; 

{if (!is_comm) {return(TOK_ARROW);}} ; 

{if ('is_comm) {return(TOK_DEFINE);}} : 

(if (fis comm) [return(TOK. GREATER):]] ; 


: 


{if (!is_comm) | 


yylen = strlen(yytext); 

yylval.t_str = malloc(yylen+1); 
strncpy(yylval.t_str,&(vytext[1]),yylen-2): 
return(TOK STR);]! : 
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[0-9]+ (if (is comm) ( 
intval 2 6; 
yylen = strlen(yytext); 
yylval.t_str = таПос(уујеп+1); 
strncpy(yylval.t str,vytext,vylen); 
while (is; comm < yylen) Í 
intval 2 intval*10 * yytext[is comm] - '0; 
Is comm-Tt; 
| 
is comm- O; 
return(TOK_NUM): 
ШЕ 
ЈЕ ("is comm) (return(TOK. IGNORE):]] ; 


ignore { 
drag (if (41is_ comm) {return(TOK_DRAG);}} ; 
draw (if (is comm) {return(TOK_DRAW);}} : 
clear О (сой) [теш п TORK CLEAR) I?I. 
Write (if (11s _conimm) {return(TOK_WRITE);}} ; 
input (1f (is. comm) (retum(TOK INPUT):]! ; 
pause Пасо тега ГОК PAUSE): 1; 
assert ie ismeconimiy rem TOK ASSERT)? 
| 


mouse if ('is. comm) (retum(TOK MOUSE):]) ; 
keyboard {if (hs comm) (retum(TOK. KEY):]) ; 

mousew&key (if ('is. comm) (retun(TOK MOUSEKEY);j] ; 
ЕЛЕСИ {if (lis comm) {return(TOK_CLICKLEFT);}} ; 

ciick-right си is comm) (retum TOK CLICK RIGHT); |}: 
click-middle {if (!1is_comm) {retum(TOK_CLICKMID):}} : 

click-any ЕСО {rectum ТОКО СКАТ) Т” 
click-help а исо теш СТОК СІМОКЕГЕІ.РУ: І |: 

ome -coniunue {if ('ts_ comm) {retun(TOK_CLICKCONT);} } ; 
click-exit His. comm) freturn(TOK_CLICKEXIT);} } : 


halfwid (if (!1is_comm) {return(TOK_ HALFWID):}} ; 
halfht {if ('is_comm) ({return(TOK_HALFHT);} } ; 
mouseX (if ('is comm) (retum(TOK MOUSEX);])] ; 
mouse Y OEEC ONU) {return(TOK_MOUSEY):}} : 
mouse-move {if (!is_comm) {return(TOK_MOUSEMOVE);}} ; 
seconds Geis comm) (reum TOK SECONDS) II. 
past отоо тео. ЗИ 
menu (if ("is comm) (retumm(TOK. MENU);]]) ; 
quit ЕЕ оо Ра OTRO GU EE 
hos Сосо) тео ГОК-ХСОМР М: 
Xy {if (1is_comm) {return(TOK_YCOMP);}} : 

D 


[0-9A-Za-z -]- (1f (is comm) | 
yylen = strlen(yytext); 
yylval.t_str = malloc(yylen+1); 
strncpy(yylval.t_str,vytext,yylen): 
return(TOK_ID):)) : 

N< (if ("Is comm) (return(TOK. AMPERSAND);1] ; 

{if ('is. comm) 

fprintf(stderr," unrecognized '£osNY",yytext):) ; 
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G рапвег.у - YACC 


Zounion ( 
EHI Str; 
int t int; 
ШІ СІйпоссе *t cfd; 
шшастпосе *t act; 
Сишортезподе *t res; 
struct opnode *t op; 
struct locnode *t loc; 
struct expnode *t exp; 
smuSEenunode *t men; 


} 


gotoken «t int» TOK. OPENPAREN TOK CLOSEPAREN 

geotoken «t int» TOK. EQUAL TOK. GREATER TOK LESS TOK. GREATEQ 
ЖҮЙ ІГЕ55ЕО 

%token <t_int> TOK_ADD TOK_SUBTRACT TOK_TIMES TOK_DIVIDE 
%token <t_int> TOK_BAR TOK_AMPERSAND 

%token <t_int> TOK. COMMA TOK_DEFINE TOK MENU TOK ARROW 
%token «t. int» TOK. NUM 

Ootoken «t. int» TOK ID 

Ootoken «t int» TOK. STR 

OCtoken «t int» TOK. IGNORE 

gotoken «t int» TOR. DRAW TOK WRITE TOK CLEAR TOK INPUT TOK PAUSE 
TOK_ASSERT 

КООШО ні» ТОК ОКАС ТОК QUIT TOK. MOUSEKEY TOK MOUSE 
TOR KEY 

nt int> TOK CLICKLEFT TOK_CLICKRIGHT TOK_CLICKMID 
Ша СИ СКАКМУ 

 пегіп> ГОК СІІСКНЕІР ТОК СИСКСОҺКТ ТОК СЫІСКЕХІТ 
%token <t_int> TOK. MOUSEX TOK_MOUSEY TOK_MOUSEMOVE TOK_PAST 
% token «t int» TOK. SECONDS TOK HALFWID TOK HALFHT 

dotoken «t int» TOK XCOMP TOK YCOMP ТОК АТ 

Jotype «t. str» cfd 19 

Zotype «t men» menu [ist 

Zotype «t. men» choice 

Zotype «t act» action list 

Jotype «t act» action. node 

Zotype «t. act» act. node list 

Jotype «t res» response list 

Jotype «t res» response. node 

Jotype «t str» exp. assert 

Jotype «t res» res node list 
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Ooctype «t. int» region id 
Obtype «t. act» action 
богуре «1 int» input list 
Zotype «t. op» keywords 
Zetype «t. op» pattern 
9огуре «1 ор» раграгі 
Octype «t. op» patconj 
Фуре < int» relop 
Jotype «t. loc» location 
Octype «t. exp» locpart 
Zotype «t. exp» term 
Zotype «t. exp» factor 


Zostart cfd. graph 


9% 

cfd graph: cfd graph cfd node lcfd graph cfd. def 
start cfd node |l start cfd. def | 
start cfd. menu cfd node! start cfd menu cfd def ; 


start: ( 

cfdlist = NULL: 
cfdgraph = NULL: 
piclist = NULL; 
topmenu = NULL; 


#ifdef YYDEBUG 
#if Y Y DEBUG 
yydebug = 1; 
#else 

yydebug = 0; 
#endif 

#endif 


ји: 


cfd menu: TOK. OPENPAREN TOK MENU TOK STR 
{topmenu = NEWPTR(menu): 
topmenu-»title — yylval.t. str; 
) menu list TOR CLOSEPAREN 
(topmenu-»choices = 55; ) ; 


78 





menu. list: choice TOK. COMMA menu list 
(tmp. menu - $1; 
tmp menu-»next з 53; 
$$ = tmp. menu: 


НОЕ Фе = >: 


Siete. LOK STR (tmp. str 2 yylval.t str;) TOK. ARROW cfd id 
(tmp. menu  NEWPTR(menunode); 
пар menu-»choice - tmp. str; 
tmp_menu->state = findnode($4); 
tmp_menu->next = NULL; 
$$ = нир_тепи; 


b 


cfd node: TOK OPENPAREN cfd id TOK COMMA action list ТОҚ СОММА 
mesponse list TOK CLOSEPAREN 
(tmp. node - findnode($2); 
tmp_node->actlist = $4: 
tmp, node-»reslist 2 56; 
if (cfdgraph 22 NULL) cfdgraph - tmp. node; 
/* else it's already linked into the graph */ 


ЈЕ: 


edger ТОК ID [tmp str 2 yylval.t str;) TOK. DEFINE TOK STR 
(add defn(tmp. str,vylval.t str);] : 


em TOK ID { $$ =my_copy(yylval.t_str,yylen); |; 


action list: TOK. OPENPAREN act node list TOR. CLOSEPAREN ($$ 2 $2;] 
| action. node ($$ 2 $1:1: 


fespense list : ТОК _ОРЕКРАКЕХ res node list TOK. CLOSEPAREN [55$ -52;) 
| response. node ($$ 2 $1:] : 


action. node : TOK. OPENPAREN region id TOK. COMMA action 
TOK CLOSEPAREN 
( tmp. act 2 $45; 
tmp. act-»actloc = $2: 
tmp_act->next = NULL: 
ОЕ пар ак 
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act node list: act. node list TOR. COMMA action. node 

(tiapeact =$1: 

р асг == NULO S ЕЕ 

else ( 
while (tmp. act-2»next != NULL) tmp act-tmp. act-»next; 
tmp. act-»next = $3: 
$$ = $1; 
} 

| 
| action. node ($$ 2 $1:] ; 


response node: TOK. OPENPAREN pattern TOK. COMMA cfd 14 
TOK_CLOSEPAREN 
{tmp_res = NEWPTR(resnode); 
tmp_res->label = NULL; 
tmp_res->expr = $2; 
tmp_res->node = findnode($4): 
$$ = tmp_res: 
j 
| TOK OPENPAREN pattern TOK. COMMA exp. assert 
TOK COMMA cfd 14 
TOK CLOSEPAREN 
(tmp. res 2 NEWPTR (resnode): 
tmp res-»label = $4; 
Клара те co DD E 
tmp res-»node z findnode($6): 
$$ = umnp res; 
J 
I TOK. OPENPAREN pattern TOR. COMMA exp. assert 
ТОК СОММА ТОҚ IGNORE 
TOK_CLOSEPAREN 
(tmp. res Z NEWPTR(resnode): 
tmp. res-»label = 54; 
пор те5->схрт - 2) 
tmp _res->node = NUBE 
$$ — tmp res; 
J 
| TOK_OPENPAREN pattern TOR. COMMA TOK IGNORE 
ТОК” СРОЗЕРАБЕЫ 
{imp_res = NEWPTR(resnodey: 
tmp_res->label = NULL; 
tmp_res->expr = $2; 
tmp_res->node = NULL: 
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вре 
| 
| exp assert TOK. COMMA cfd id 
[ tmp. res 2 NEWPTR(resnode); 
tmp, res-»expr 2 NULL; 
tmp. res-»label 2 $1; 
шар res-»next = NULL; 
tmp, гев->пойе = Ппапойе(53); 
5 - tmp res: 
| 
| cfd_id 
( tmp res - NEWPTR(resnode); 
tmp_res->expr = NULL; 
tmp_res->label = NULL; 
impsres-2next s NULE: 
tmp res-»node = Ппдподе (51); 
$$ = пир res; 
Із 
exp. assert: ТОК ОРЕМРАКЕМ ТОҚ А55ЕКТ ТОК СОММА ТОҚ Ш 
(tmp str 2 my copy(yylval.t str,yylen:] TOK. CLOSEPAREN 
E mp. str): 


res node list: res node list TOR. COMMA response node 
(tmp res 2 $1; 
EU NULL: 
Морате == МОДЕ as — 53; 
све 
uwhnle(tmp-res-2»next!2 NULL) tmp_res = tmp_res->next: 
рар гез =пехг= $3; 
И 
| 
| 


| response node ($$ = $1:) : 
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region_id: TOE s (bi 


Case: 
Сазе 
Сао 
cases s 
case 4: 
case 
сазе б 
сазе и: 
case 8: 
Case 9 


default: 


) 
E 


{ switch (intval) { 
case 0: $$ 2 REG ALL; break; 
case 1 : $$ - REG. ONE; break; 
case 2 ; $$ = REG_TWO; break; 
сазе 3: $5 = REG THREE TU AK 
case 4 : $$ = REG_FOUR; break; 
case 5 : $$ = REG_FIVE. break: 
case 6 : $$ = REG. SIX; break; 
case 7: $$ 2 REG. SEVEN; break; 
case 8: $$ 2 REG EIGHT; break: 
case 9: $$ REG. NINE; break; 
default: $$ 2 REG. OTHER: 
) 
| 
| region id TOK ADD TOK. NUM 
{switch (intval) { 

$$ = $1 | REG _ ALL: break: 

o> = o1 | REG CONE break: 

$$ - $11! REG. TWO:; break; 

$$ =S | REG THREE: pr als 

$$ = $] I REG _ FOUR: break: 

$$ = $1 | REG FIVE: break: 

$5 = БЕС Бк Drenk: 

$$ =$1!1REG SEVEN; break: 

$$ = $11 REG EIGHT; break: 

$$ = $11 REG_ NINE; break: 

$$ = $11 REG OTHER: 


w 


action: TOK DRAW TOK COMMA TOK ID 
{if ((t_pic=findpic(yylval.t_str))!=NULL) 
$$ = new_actnode(ACT_DRAW, t_pic->picfile, 0, NULL); 
Elsen 
fprintf(stderr,” Warning: undefined graph %s\n",yylval.t_str): 
$$ = new_actnode(ACT_DRAW, yylval.t str, 0, NULL); 
|j 
| ТОК DRAW TOK. COMMA ТОК ID (tmp str 2 yylval.t str:) TOK_AT location 
(if ((t pic 2 findpic(tmp_str))!=NULL) 
$$ 2 new actnode(ACT. DRAW, t. pic-»picfile, 0, $6); 
else { 
fprintf(stderr," Warning: undefined graph %s\n",tmp_str); 
$$ = new_actnode(ACT_DRAW, tmp_str, 0, $6); 


| ТОК DRAG ТОК СОММА ТОК Ш 

(if ((t pic = findpic(yylval.t_str))!=NULL) 
$$ 2 new. actnode(ACT. DRAG. t pic-»picfile, 0, NULL): 
else { 
fprintf(stderr," Warning: undefined graph 96s" ,vylval.t str); 
w= new actnode(ACl DRAG, yylval.t_str, 0, NULL); 


| TOK_CLEAR 
{$$ = new_actnode(ACT_CLEAR,NULL, 0, NULL);} 
| TOK_QUIT 
{$5 = new_actnode(ACT_QUIT,NULL, 0. NULL); } 
|I TOK. CLEAR TOK. COMMA TOK D (tmp str = yylval.t_str; } 
TOK AT location 
(if ((t. pic 2 findpic(tmp_str))!=NULL) 
$$ 2 new. actnode(ACT. CLEAR. t. pic-»picfile, 0, $6); 
есе 
fprintf(stderr," Warning: undefined graph %s\n",tmp_str): 
$$ = new_actnode(ACT_CLEAR, tmp_str, 0, $6); 


| TOK_WRITE TOK_COMMA TOK_STR 

{$$ = new_actnode(ACT_WRITE, yylval.t_str,0,NULL); } 
| TOK_INPUT TOK_COMM<A input_list 

{$$ = new_actnode(ACT_INPUT,NULL,$2,NULL); } 
ITOK PAUSE TOK_COMMA TOK_NUM 

{$$ = new_actnode(ACT_PAUSE,NULL, intval, NULL); } 


location : TOK_OPENPAREN locpart TOR. COMMA locpart TOR. CLOSEPAREN 
(tmp. loc 2 NEWPTR(locnode); 
tmp. loc-»x = $2; 
tmp. loc-»y = $4; 
$$ - tmp loc; 
| 


locpart : term {$$ = $1;} 

| locpart TOK_ADD term 
{tmp_exp = NEWPTR(expnode): 
tmp_exp->left = $1; 
(тір. ехр->ор - “ғ; 
tmp, exp-»right = $3; 
пор ехр->уатате = NULL: 
опр _ехр->сотр = '"; 
tmp. exp-»val = 0; 

$$ 2 tmp. exp; ] 
| locpart TOK SUBTRACT term 
(tmp. exp 2 NEWPTR(expnode); 
tmp. exp-»left 2 51; 
tmp exp-»op - -; 
tmp. exp-»right - $3; 
tmp_exp->varname = NULL; 
tmp_exp->comp = ' 
tmp_exp->val = 0: 

Do HEC OD E 


term- factor 5 пе 

| term TOK TIMES factor 
(tmp. exp - NEWPTR(expnode); 
оар exp l (= 
tmp_exp->op = '>'; 
tmp exp-»right = $3; 
tmp_exp->varname = NULL; 
пир ехр->сотр + ; 
tmp_exp->val = Q; 
Po mic || 

Пеги ТОК DIVIDE factor 
(tmp. exp 2 NEWPTR(expnode); 
tmp. exp-»left 2 $1; 
шар ехр->ор + /; 
tmp. exp-»right = $3; 
tmp_exp->varname = NULL; 
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np exp -conp =; 
tmp_exp->val = 0; 
5 = пир сехр | 


factor: TOR. NUM 
(шар exp - NEWPTR(expnode): 
imipeexp-—lent = NULL; 
пор ехр->ор +"! 
imp-exp-»nght = NULL; 
tmp_exp->varname = NULL; 
шар ехр-сотрх 
tmp. exp-»val z intval; 
ео | 
I TOK HALFWID 
(tmp exp - NEWPTR(expnode): 
onp exp zlet- NULE: 
imc ор 
tmp exp-»right = NULL: 
tmp. exp-»varname - "halfwid"; 
tmp_exp->comp = ' ': 
tmp_exp->val = 0: 
$$ = шар ехр: ) 
ШОК НАТЕНТ 
(tmp. exp = NEWPTR(expnode); 
tmp_exp->left = NULL: 
upep Op ~ | 
tmp_exp->right = NULL: 
tmp. exp-»varname - "halfht'; 
tmp exp-»comp- ' ; 
tmp exp-»val = О; 
$$ = tmp exp: ) 
І ТОҚ МОС5ЕХ 
(шар ехр - МЕУУРТК(ехрподе); 
tmp_exp->left = NULL; 
unp exp-»op- ': 
пор exp-»right 2 NULL: 
tmp ехр-»уагпате — "mouseX '; 
tmp ехр->сотр + ; 
tmp. exp-»val = 0; 
$$ tmp exp; ] 
ШОК MOUSEY 
(tmp. exp 2 NEWPTR(expnode): 
ip Ece xp Пен = NDD: 


! 


tmp_exp->op =''; 
tmp_exp->right = NULL; 
tmp_exp->varname = "mouseY": 
tmp_exp->comp ='': 
tmp_exp->val = 0; 

Е 

ТОК Ш ТОК ХСОМР 
{tmp_exp = NEWPTR(expnode); 
tmp_exp->left = NULL; 
tmp_exp->op ="; 

tmp_exp->right = NULL; 

tmp_exp->varname - yylval.t str; 

пор ехр->сотр + х; 

tmp. exp-»val - 0; 

$$ 2 tmp. exp; ] 

ТОК Ш ТОК УСОМР 

(tmp. exp - NEWPTR(expnode); 

tmp exp -lei = NUE 

tmp_exp->op =''; 

tmp_exp->right = NULL: 

tmp_exp->varname = yylval.t_str; 

штр_ехр->сотр = у; 

tmp. exp-»val = 0; 

$ = Е 

| TOK_OPENPAREN locpart TOK_CLOSEPAREN ($$ 2 $2;]; 


input. list: TOK. MOUSE ($$ - MODE MOUSEONLY:] 
| TOK. KEY ($$ 2 MODE KEYONLY;) 
| ТОК MOUSEKEY ($$ 2 MODE MOUSEKEY:] : 


patpart : keywords ($$ 2 $1:) 
I TOK_CLICKLEFT 
($$ 2 new. opnode(OP. NULL,NULL,NULL,NULL,NULL, 
RES CLICKEEET.O NULLIS 
| ТОК CLICKRIGHT 
($$ 2 new. opnode(OP NULL,NULL,NULL,NULL,NULL, 
RES _CLICKRIGHT O NULLEI 
| TOK_CLICKMID 
{$$ = new_opnode(OP_NULL,NULL,NULL,NULL,NULL, 
RES СОШО ИИ ОСЕ 
| ТОК CLICKANY 
($$ = new, opnode(OP NULL,NULL,NULL,NULL,NULL, 
RES CEIGRANYDNÜULL) 
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|i TOK. CLICKHELP 
($$ 2 new. opnode(OP NULL.NULL,NULL,NULL,NULL, 
RES CLICKCONT,;O.NULL);) 
ITOK_CLICKCONT 
($5 2 new opnode(OP. NULL,NULL,NULL,NULL,NULL, 
ВЕК ВОГО МОРЕ» ] 
ITOK_CLICKEXIT 
($$ Z new. opnode(OP NULL,NULL,NULL,NULL,NULL, 
F ЕЕ ONULE)? 
| locpart relop locpart 
{$$ = new. opnode($2,NULL,NULL,$1,$3, 
RES NULLO NULL)? 
| TOK_MOUSEMOVE 
{$$ = new_opnode(OP_NULL,NULL.NULL,NULL,NULL, 
КЕЗ МОББЕМОМЕ О NUCE] 
Г ТОК КОМ ТОК SECONDS 
| пе орподе(оР NULL NULL NULL.NULL.NULLD. 
RES SECONDS, intval,NULL); } 
К РАГС id TOK ID 
[ 
tmp_str = malloc(strlen($2)+vylen+2): 
strcpy(tmp_str,$2); 
sacat np Sir, / 
strcat(tmp str,yvlval.t str): 
new_opnode(OP_NULL,NULL,NULL,NULL,NULL,RES_PAST,0,tmp_str); } 
| TOK_OPENPAREN pattern TOK_CLOSEPAREN 
($5 2 $2;] 


patconj : patpart ($$ 2 $1:) 

| patconj TOK AMPERSAND patpart 

( $$ = 
new_opnode(OP_AND,$1,$3.NULL,NULL,RES_NULL,O,NULL); } ; 


pattern : patconj ($$ = $1;} | pattem TOK BAR patconj 


о орпоас(ор Ов 91.53 МОм МОЕ КЕ5 МОИ ОМО): 
ЈЕ 
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relop: TOK_EQUAE {$3 < ОР ЕО; | 
I TOK. GREATER ($$ - ОР GREAT} 
| TORMEESS (55 — OPE SS 
| ТОК ОВЕАТЕО (55 - ОР СЕО:) 
| ТОК 1Е55ЕО ($$ 2 OP LEQ;J ; 


keywords : TOK STR 
(55 + 
new opnode(OP-NUELNULIL.NUEE;NULE;NUEL;RES-KE Y О уума ли ша 


, 


%% 

#include <stdio.h> 
#ifdef STANDALONE 
#define MAIN 
#include "рагѕет.һ" 
#undef MAIN 

#else 

#1nclude "parser.h" 
#endif 


extern int yylineno; 

extern char *yytext; 
extern imt yylen 

extern int intval: 

char “malloc o): 

char *unp su; 

struct expnode *tmp exp; 
struct opnode *tmp. op; 
struct resnode *tmp res; 
struct cfdnode *tmp. node: 
struct actnode *tmp . act; 
struct locnode *tmp. loc; 
struct menunode *tmp menu: 
struct picnode r tap. 


#define NEWPTR(Type) (struct Type *) malloc(sizeof (struct Type)) 
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— 


char *my_copy(str,len) 
ehar “Str; 
ШІ len: 
fenar *tmp; 
NEED V NULL ll len «- 0) | 
fprintf(stderr, null string sent to my_copy\n"); 
ва IN LL; 
| 
else 
if ((tmp = malloc(len+1)) == NULL) | 
fprintf(stderr," Cannot allocate memory for string of length %d\n",len+1); 
exit(2); 
| 
strncpy(tmp, str,len); 
iif YYDEBUG 
fprintf(stdout, copied %s (%d)\n" tmp, len): 
#endif 
return tmp; 


) 
) 


struct opnode *new_opnode(op,oleft,oright,rleft,rright,act,num, str) 
struct opnode *oleft, *oright; 

int op,num,act; 

suu pnode *rleft, *rnght; 

elites Sir; 

{struct opnode *tmp = NEWPTR(opnode); 
mpe leit = oleft; 

tmp-»operator = op; 

tmp-»right - oright; 

tmp-»res act — act; 

tmp-»res left = пей; 

tmp-»res, right 7 rright; 

tmp-»res int - num; 

tmp->res_str = Str; 

return tmp; 


| 
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struct actnode *new_actnode(actcode, str, num, loc) 

int actcode, num; 

char sim 

struct locnode *loc; 

{struct actnode *tmp = NEWPTR(actnode); 
tmp->actloc = 0; /* whole screen, by default */ 
tmp->action = actcode; 
tmp->info_str = str; 
tmp->info_int = num; 
tmp->info_loc = loc; 
tmp->next = NULL; 
return tmp; 


struct cfdnode *findnode(target) 
char *target; 
(struct cetdnode cur = СШ 
(сит == Даде Е 
cfdlist = NEWPTR(cfdnode); 
cfdlist->nodeid = target; 
cfdlist->actlist = NULL: 
cfdlist->reslist = NULL; 
cfdlist->next = NULL; 
return cfdlist; 
} 
else! 
if (target 22 NULL) return cífdlist; 
while (cur->next != NULL && strcmp(cur->nodeid,target)!=0) cur = cur->next; 
if (stremp(cur->nodeid,target)==0) return cur: 
else 
cur->next = NEWPTR(cfdnode); 
cür = CUr mes 
cur->nodeid = target; 
cur->actlist = NULL; 
СО а У = NULI: 
cur>next =- NULL. 
return сиг; 
) 
) 


return NULL: /* should be unreachable but lets beste. 


} 
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struct picnode *findpic(target) 

Ciar *tarcet; 

lisicuctpienode *cur » piclist; 

ЕЕ МОС tl target == NULL) return NULL; 

while (cur->next !=NULL && stremp(cur->picid,target) != 0) cur = cur->next; 
if (stremp(cur->picid,target) == Q) return cur; 

етегі NULL; 

} 


void add_defn(id,filename) 

Ed filename; 

{Struct picnode *cur = piclist; 

КОКУ Il filename 2-2 NULL) | 


fprintf(stderr,” Warning: null ident/filename in def on line %d\n",yylineno); 
return; 


} 
ПОШ == МОЛ) | 
piclist = NEWPTR(picnode); 
piclist->picid = id; 
piclist->picfile = filename: 
piclist->next = NULL; 
} 


else { 
while (cur->next != NULL && strcmp(cur->picid,id) != 0) cur = cur->next; 
if (stremip(cur->picid,id) == Q) { 
fprintf(stderr," Warning: ignoring duplicate picture named “s on line %d\n", 
id,yylineno); 
} 


else ( 
curnext = NEWPTR(picnode): 
ОШ = Cur->next: 
Cur->picid = id; 
cur->picfile = filename: 
cur->next 2 NULL: 


9] 


int yyerror(s) 
char *s; 
{ 
fflush(stdout): 
fflush(stderr); 
fprintf(stderr,"%s on line 4%" 5, ууПпепо); 
} 


#ifdef STANDALONE 

main() 

| 

if (yyparse()220) printf(" Successful parsev1"); 
else printf("Unsucessful parse"): 


) 
#endif 


л 


APPENDIX E 
INTERPRETER 


ESSIEENANME: interp.h */ 

/* PURPOSE: Declaration of all global variables, function */ 
/* declarations and include files */ 

EIU XDELEED BY: interp.c */ 

/* AUTHOR: Dawn M. Maskell */ 

/* Timothy J. Shimeall */ 

/* Naval Postgraduate School, Monterey, CA */ 

PATE: 20 January 1991 */ 


и я Rhee ee ығы асы ас е Ты прое а Ұға даа ии о a2 d Es uli 


понос даје files */ 


#include <stdio.h> 
#include <string.h> 


*include "parser.h" 


#include <suntool/sunview.h> 
#include <suntool/canvas.h> 
#include <suntool/icon.h> 
#include <suntool/panel.h> 
#include <suntool/alert.h> 
#include <sunwindow/notify.h> 
#include <sys/time.h> 


p 


#ifdef MAIN 

#define EXTERN 

#define INIT( Value) = Value 
#else 

#define EXTERN extern 
#define INIT( Value) 

#endif 


#define ITIMER_NULL ((struct itimerval *)Q) 
/* set up conversion macros */ 

#define LINE TO RASTER Y( Eine) Vines iG 
#define RASTER_Y_TO_LINE(Ry) Ry/16 
#define CHAR_TO_RASTER_X(Char) Char*& 
#define RASTER_X_TO_CHAR(Rx) Rx/8 

/* STRUCTURE АСВ рано т м 


struct asser M TOP assent и | 
char *id; /* state identifier being asserted */ 
Struct assert *next; /* ptr to next in assert list */ 


ЈЕ 
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/* GLOBAL variables */ 
БЕЖЙЕКУ struct assert *assert. list INIT(QNULL): /* create assert list */ 


EXTERN struct cfdnode *current, state INIT(NULL);/* pointer to current*/ 
Ix mun tutorial */ 
NE -me executed */ 


EXTERN Canvas canvas; /* base canvas for display of */ 
/* graphics and text */ 


ШЕРЕТ ЕП Е *уу1п; /* yacc input file, default stdin */ 
EXTERN Frame frame; /* base window of svstem */ 
EXTERN Icon post icon; 


ЕВА Ш рапе! value; /* value of start state selection */ 
luem on; /* need to use a time */ 


EXTERN Panel menu panel, /* displav main menu buttons */ 
panel; /* display base window panel buttons */ 


EXTERN Panel item button, /* base window panel */ 
cont, /* base window panel item button */ 

help, /* base window panel item button */ 

menu, /* base window main menu check boxes */ 
quit; /* base window panel item button */ 


#ifdef MAIN 

/* ICON declarations */ 
static short icon image[] = | 
*include "post. sym.icon" 


E 


EXTERN mpr. static(post. sym, 64. 64, l, icon 1mage): 
#endif 


/* FUNCTION declarations */ 


EXTERN struct assert 
crean m 55е Пе 


EXTERN char 
*menu_selection(); 


EXTERN void 
canvas_repaint(), 
create base canvas(), 
create base. frame(), 
create base panel(), 
do action. list(), 
exit selected 
kill window(), 
ЕВЕ! 
panel repaint(), 
pause(), 
input. events(), 
present. concept(); 


EXTERN int 
continue selected: 
find assert list 1d(), 
help. selected(), 
do response list(), 
Е 


EXTERN Notufy value 


pause пп), 
my. notify(); 


96 


MIL ENAME: interp.c */ 

/* PURPOSE: contains the routines to interpret concept-flow */ 
/* structure of the Physics of Sound Tutorial */ 
"CONTAINS: main() */ 

ЕСО е0) */ 

| wereate base_frame() */ 

Ши ае base_panel() */ 
Ixercate- base сапуас() “/ 

AUTHORS: Dawn M. Maskell, LT, USN */ 
/* Timothy J. Shimeall */ 

/* Naval Postgraduate School, Monterey, CA */ 
ЮА ТЕ: 21 January 1992 */ 

R OFTWARE: SunView */ 


а е Ш еро о Р е А a КЗ ЛЕ ТИК е eet n аб R ОБЕ A ATOA TA r r a TA r 20. 24,24. обе пао бо об. R S T эб» wl об дб обо об ely оба аб. об LUE LE UE LE UE EA EA st 


ор» ее оо ем ее > т т A 


#define MAIN 
finclude "interp.h" 


main(argc, argv) 

int argc; 

char *argv[]; 

| 

/* get the correct input file for tuturial */ 
get file(&argc, argv): 


/* Successful parse of file, execute tutorial */ 
И (уурагве() == 0) 
| 


/* create base frame */ 
create_base_frame(argc, argv): 


/* create base panel */ 
create_base_panel(): 


Ir Create base canvas */ 
Fi ac base canvas(); 


window main loop(frame); 


| 
/* Unsuccessful parse */ 
else printf(Unsuccessful parse): 
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| 
| 


Шы М RE VENETA ша 


ZSUUNCTION: get file() */ 

IS RPOSE: get the name of the file to be used for tutorial */ 
КЕСЕР BY: main() */ 

IESU TURNS: void */ 

ШЕСТІС: ғ/ 

ИЕОБАТ 5: FILE yyin <interp.h> */ 


void get. file(argc, argv) 

me argc; 

char *argv{]; 

{int 1; 

/* get name of tutorial file from stdin */ 
ПО атес> 1 620 *агоу[1] != ‘-`) | 

yyin = fopen(argv[1],"r): 

ey yin == NULL) í 

fprintf(stderr,’ %s: Can’t open Фо” аге | О|агем |): 
exit(1); 

| 

Пил! 1 < ( “агос - 1); 1++) 

агоу [1] = агам[1+] ]: 


| 1 2С)--; 
/* if name of tutorial file not given. assume */ 
else | 


yyin — fopen("post.script "T ): 

Amicum -- NULL) | 

fprintf(stderr, 96s: Can't open post.scriptY ,argv[0]): 
EI) 

} 

) 

) 


Jb 


/* FUNCTION: create base frame() */ 

/* PURPOSE: create the main window that the entire tutorial */ 
[> operatsi м 

/* CALLED BY: main) 7/ 

/* RETURNS: void */ 

[* CALES 3) 

/* GLOBALS Frame Наше < ше i | 


void create, base frame(argc, argv) 

пи агес; 

char *argv[]; 

/“ сгеогелеор шарени 

post. icon + 1соп сге е 1 СОК IMAGE, &post. sym, 0); 


frame = (Frame)window_create(NULL, FRAME, 
FRAME_LABEL, ((topmenu != NULL) ? topmenu->title 
: “Physics of Sound Tutorial”). 

FRAME_ICON, post_icon, 

FRAME_ARGS, argc, argv. 

FRAME NO CONFIRM. FALSE. 

NULL); 

) 
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MEE океан Ae tee НЕНА ЖЕНИО ЖЕ ЕЖЕН / 
ENS NCTION: create. base. panelO */ 

IND NPOSE: create the buttons for the main window of the */ 
/* tutorial */ 

ENS SED BY: main */ 

/* RETURNS: void */ 

/* CALLS: continue_selected */ 

/* exit selected */ 

Pep selected */ 

EA selected */ 

/* GLOBALS: Frame frame <interp.h> */ 

/* Panel menu_panel, panel <interp.h> */ 


void create base panel() 

| 

реше (Panel)window. create(frame, PANEL, 
WIN WIDTH, WIN_EXTEND_TO_EDGE, 
NULL): 


menu — (Panel 1tem)panel create item(panel, PANEL BUTTON, 
ПАМЕТ LABEL IMAGE, panel. button, image(panel, "START , 5, 0), 
PANEL NOTIFY PROC. start. selected, 

ВЕТ); 


Io (Panel item)panel create item(panel, PANEL BUTTON. 
PANEL LABEL IMAGE, panel button image(panel, "HELP', 4, 0), 
EEUEIE-NOTIFY PROC, help selected, 

KULL); 


cont - (Panel item)panel create item(panel, PANEL BUTTON, 
PANEL LABEL IMAGE, panel button image(panel, "CONTINUE, 
8, 0), | 

PANEL NOTIFY PROC. continue_selected, 

WOLL); 


quit 2 (Panel item)panel create item(panel, PANEL BUTTON, 
PANEL ITEM £X, 590, 

PANEL LABEL IMAGE, panel button image(panel, "EXIT", 4, 0). 
PANEL NOTIFY PROC, exit. selected, 

NULL); 


window fit height(panel): 
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АЛАТЫН ЫЛА ACPA ONO ЫР бл бл айы аб ЫЎ РА 


IZSUNCTION: create. base canvasO */ 

IU RPOSE: create the base canvas for the main window of the */ 
кота! > / 

ПРАТ ТЕР ВУ: таш() */ 

ШЕРТГПЕКС: void */ 

/* CALLS: canvas repaint */ 

/* GLOBALS: Frame frame «interp.h» */ 

Ixcunvas canvas «interp.h» */ 


void create base canvas() 

(Pixwin *pw; 

/* create a canvas on which to display the tutorial */ 

Canvas = (Canvas)window_create(frame, CANVAS, 
WIN_X, 10, 

WIN_COLUMNS, 60, 

WIN_ROWS, 45, 

CANVAS_AUTO_EXPAND, TRUE, 

man VAS AUTO SHRINK, TRUE, 

/* CANVAS. REPAINT. PROC, canvas repaint, */ 

ШЕГІ); 
p^ 

printf(^Width of 60 chars is %d, Height of 45 lines is п”, 
(nt) window get(canvas, WIN WIDTH), 

(int)window get(canvas, WIN HEIGHT)): 

í 

pw = canvas_pixwin(canvas): 

window. set(canvas, 

WIN CONSUME KBD EVENTS, WIN. NO EVENTS, WIN ASCII EVENTS, 


WIN CONSUME PICK. EVENTS, WIN MOUSE BUTTONS. 
WIN IN TRANSIT EVENTS, 0, 

NULL); 

win register(canvas, pw, input events, kill. window, PW. RETAIN); 
notify interpose event func(canvas, my. notifv, NOTIFY SAFE) 

) 
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/* FUNCTION: start. selected() */ 

/* PURPOSE: provide on-line help to user */ 
/* CALLED BY: create _base_frame() 7 

/* RETURNS: int */ 

ЈЕ САШЕ ЯН, 

1 ООВ. 


int start. selected(item, event) 
Panel item item; 
Event *event; 


| 


char “Start State: 


Alert_attribute *attr_list = (Alert_attribute miles 
(lO*sizeof(Alert. attribute)): 


/* load attr. list from topmenu */ 

panel value - alert prompt(panel, NULL, 

ALERT MESSAGE STRINGSw5elecrsrarung polnte 
МЕ ЕЕ 

ALERT. BUTTON, “Introduction”, O. 

ALERT BUTTON] Source a 
ALERT_BUTTON, “Sound”, 2. 
ALERT_BUTTON, “Detector”, 3, 
ALERT_BUTTON, “Mastery Test’, 4, 
NULL); 


/* 0, 1, 2, 3 and 4 are value returned when button is pushed */ 


/* get main menu item selected and start point of tutuorial */ 
start state - menu selection(); 


/* find start state in cfdgraph */ 
current state — findnode(start. state); 


/* do actions in start state action list */ 
do action list(current. state-»actlist); 


/* get event and find in response list 


do response list(current state-»reslist): 


i 
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LP Due UP РУР ЕО РУР ТАО РЧ РЕЧ P XE SUPE PEE RUPES TE pe В NEU IE SUE SY ЛАН АЕ ко 


ре FUNC TION PoP c eera T 

/* PURPOSE: provide on-line help to user */ 
/>*CALPPD DA ере а а тапк У. 

/* RETURNS imi 7 

[CALE Se) 

/* GUGBAIES: =) 


па аса ае ср о не а и Еа Сала Ко а ер ТЕГЕ 


int help selected(item, event) 
Panel item item; 
Event event 


| 


int result; 


result = alert prompt(panel, NULL, 

ALERT MESSAGE STRINGS, "Help button selected", NULL, 
ALERT BUTTON. YES, "OK", 

ALERT BUTTON NO, "CANCEL, 

NULL); 


Е 
reum i 
else return Ü: 


| 
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U ТАҒАЛЫ ы ыы ata ale Mr QUT ER В 


пиши: ышы ыды алдады ааа ааа ыы ады ада аа | 
/* FUNCTION: continue selected() */ 

/* PURPOSE: provide on-line help to user */ 

/* CALLED BY: create_base_frame() */ 

/* RETURNS: int */ 

pone ALLS: */ 

IESSBOBALS: */ 


int continue selected(item, event) 
Panel item item; 
event “event; 


| 


int result; 


result - alert prompt(panel, NULL. 

AIERT MESSAGE STRINGS, "Do vou wish to continue?", NULL, 
ФР ЕКТІ BUTTON, YES, "YES". 

ENEERI BUTTON NO, "NO". 

po LL); 


mere stilt == ALERT_YES) 
return |; 
else return 0: 


| 
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/* FUNCTION: exit. selected) */ 

/* PURPOSE: provide on-line help to user */ 

/* CALLED BY. credte pase frane и 

/* RETURNS int, 

/* CABES 3) 

/* GLOBALS: */ 

void kill. window(frame, event, args) 

Window frame; 

Event rev ní 

char *args; 

| 

/* this can't call window. destroy (for fear of recursive loop) */ 
/* but eventually needs to do almost everything else to clean up */ 
exit(0): 

| 


void exit, selected(argc, argv) 

int *argc; 

char *argv[ |; 

( 

window_destroy(frame): 

kill_ window(frame, NULL, NULL): 
| 
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М ЕЕК ЖЕ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ м KOK OK OR K OKOE KOF ж ж ож я 
ESSUNCTION: menu. seclection() */ 

/* PURPOSE: call procedure based on main menu option selected */ 

ISSUED BY: create, base. panel() */ 

/* RETURNS: void */ 

КОПТ $: */ 

/* GLOBALS: Panel menu panel «interp.h» */ 


EE АЕ А А А А А А АВА АЈА жк ЕЕ ЕКЕ БЕ КОН НЕ ЖАСА КЖК 


char *menu_selection() 

| 

/* based on the main menu option chosen, find the start state */ 
Ке the tutorial */ 

switch (panel value)| 

ause О:{ 

printf(- INTRODUCTION chosen `): 
printf(Go to start state: % s\n”, cfdgraph->nodeid): 
return (cfdgraph->nodeid): 

break; 

} 

case 1:{ 

printf(“SOURCE chosen\n’ ): 

тесіп (51 2”); 

break; 

) 

suse 2: 

printf - MEDIUM chosen); 

break; 

| 

gase 3:[ 

printf(“DETECTOR chosen\n’ ): 
break; 

) 

case 4:{ 

рип С МТ сћозепм '): 

break; 

| 

} /* End switch */ 
| 
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#include "interp.h" 
#include <suntool/icon_load.h> 


Static int 1s_pausing = 0; 
static int mousex = 0; 
static int mousey = 0; 
static char inbuf[2048 ]; 
static int inbuflen = 0; 
static Int inx = O 

static int iny = 0; 


ЕЕЕ ЖЕ ЖЖЖ ЖЖ ЖЖЖ ЖЖ ak Ske ae ake ake akk aix ake akk ake ake akk НОНЕ ЛОВА АСЕНА А А АИ. 
/ FUNCTION canvas repam) T 

/* PURPOSE: repaint canvas window */ 

/* CALLED BY? main(}<interp.c>/ 

/* RETURNS: void */ 

IE CALLS 

/* GLOBALS: Canvas canvas «interp.h» */ 


void canvas, repaint(cvs, pwin, xrects) 
Canvas Cvs; 

Pixwin *pwin; 

int xrects; /* unused */ 


| 


Pixwin *pw - canvas, pixwin(canvas); 


/* EVENTUALLY - BUILD A REPAINT LIST IN DO ACTION TERT} 
/* EVENTUALLY - decode event */ 

/* EVENTUALLY - interpret which state to go to based on event */ 

/* EVENTUALLY - doactionsin tat next stare 

/* EVENTUALLY - return to main */ 

j 
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/* FUNCTION: do. write() */ 

/* PURPOSE: display text in canvas window */ 
МЕЕ TED BY: do action list() */ 
ВЕТОК М5: уса */ 

ЕТ: */ 

/* GLOBALS: Canvas canvas <interp.h> */ 


void do write(dx, dy, dw, dh, str) 

int dx, /* x coordinate of pixwin origin */ 
dy, /* y coordinate of pixwin origin */ 
dw, /* width of pixwin */ 

dh; /* height of pixwin */ 

char *str; /* string to be printed in pixwin */ 
| 

Sitar “Cur; 

int pos; 

char save; 

Pixwin *pw = canvas_pixwin(canvas): 


printf(WriteN ); 


/* clear the pixwin prior to writing */ 

pw. writebackground(pw, dx - CHAR TO RASTER X(1). 
dy - LINE_TO_RASTER_Y(!), 

da CHAR_TO_RASTER_X(1). dh, PIX_SRC); 


/* write string in pixwin */ 

Sum str; 

/* EVENTUALLY -- Deal with scrolling windows */ 

"ilie (*cur !2 ^0») | 

if (srlen(cur)* RASTER. X TO CHAR(dw)) Í 

/* output up to word break prior to dw and adjust cur accordingly */ 
pos- RASTER X TO CHAR(dw): 

while (pos>0 && cur[pos]!=" °) 

pos--; 

if (cur[pos]!=" *) 

pos - RASTER X TO CHAR(dw): /* no blank to break at */ 
s we = cur[pos]; 

ситі роз) з 207; /* cheat */ 

pustext(pw, dx, dy, PIX SRC, NULL, cur); 

cur[pos] = save; /* uncheat */ 


ІШ! 


cur = cur + pos; 

while C cür = 00) 

cur++; /* skip whitespace after linebreak */ 
dy += LINE TO RASTER_Y(1): 

} 

Се риши, 

pw. text(pw, dx, dy, PIX SRC, NULL, cur): 
break; 

} 

) /* End while */ 
} 


/* FUNCTION: mv notify() */ 

/* PURPOSE: track mouse and handle other needed events */ 
ша АШ ЕО Ву: %/ 

K [URNS: integer */ 

/" @AL LS: */ 

/* GLOBALS: Canvas canvas <interp.h> */ 
Notify value my notify(frame, event, arg, tvpe) 
Frame frame; 

ЕТШІ “еуепі; 

Notify arg arg; 

Notify event type type; 

Шта = event_id(event); 

Notify value value; 

Nd - ASCII FIRST && id «2 ASCII. LAST) 
Мила >= ' Сб ла <= "~ ) | 
inbuf[inbuflen4-4] = (char) id; 
inbuf[inbuflen]2' ^": /* simulate cursor */ 

| 

НО == ^b ilid -- ASCH. LAST /* DEL */) [ 
inbuf[inbuflen] 2 ^O; 

if (inbuflen»20) inbuf[--inbuflen] 2 ^. : 

| 

eeu (id == *024' /* CTRL-U */) | 

while (inbuflen»20) inbuf[inbuflen--] 2 ^O: 
inbuf[|inbuflen] = °`: 

) 

све па == м' ) приПпршепј = ~): 

| 

else 

switch (1d) ( 

muse LOC STILL: /* fall through */ 

case LOC. WINENTER: /* fall through */ 
case LOC. WINEXIT: /* fall through */ 

case LOC DRAQG: /* fall through */ 

case LOC TRAJECTOR Y: /* fall through */ 
case LOC. RGNENTER: /* fall through */ 
case LOC. RGNEXIT: /* fall through */ 
case MS LEFT: /* fall through */ 

case MS RIGHT: /* fall through */ 

case MS. MIDDLE: /* fall through */ 

case ОС МОУЕ: 


Е ЕЯ суеп 
mousey eventi (eveni) 
break; 

default: break; 

) 


value = notify next event func(frame,eventarg,type); /* let window handle */ 
return value: 


} 
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BESESUNCTION: do expr( */ 

/* PURPOSE: evaluate expression structure and return value */ 
ENS LLED BY: do_location() */ 

ARE TURNS: integer */ 

/* CALLS: (recursive) */ 

/* GLOBALS: Canvas canvas «interp.h» int mousex, mousey */ 
int do, expr(exptr) 

БІНІСІ ехрподе “ехріт; 

{int lhs, rhs; 

lC wu -- NULL) return 0; 

if (exptr->left == NULL & & exptr->right == NULL) { 

if (exptr->varname != NULL) { 

if (strcemp(exptr-»varname, "halfwid") 22 0) 

return (int) window get(canvas, WIN WIDTH Y)/6: 

else if (stremp(exptr-»varname, "halfht^) == 0) 

return (int) window get(canvas, WIN HEIGHT)/6; 

else if (stremp(exptr-»varname, "mouseX ) 2- 0) 
return mousex; 

else if (stremp(exptr-»varname, "mouseY ) == 0) 
return mousey; 

/* EVENTUALLY: search for varname in redisplay list & deal with 
components */ 


} 

else return exptr-»val; 
| 

lee 0; 

пий |; 


if (exptr->left != NULL) lhs 2 do. expr(exptr-2left): 
if (exptr->right != NULL) rhs = do_expr(exptr->right): 
Switch (exptr->op) { 

case °“ °: return lhs; 

case "-": return Ihs-rhs; 

Eco» return Ihs*rhs; 

case ‘/’: return lhs/rhs; 

case ‘+’: 

default : return Ihs+rhs: 

| 

) 


a НОРА ПАЛЕ ААА ре СО А EDEN ЈЕР 


/* FUNCTION: do location() */ 

/* PURPOSE: determine location for actions in list */ 
/* CALLED BY: do acion nst, 

PORE URN Seas 

/* CALLS do expri / 

[*'GLOBAES Simi ph 


void do location(locptr, x, y) 
struct locnode *locptr; 

ех y. 

{if docptr == NULL) return; 
else Í 

*x = do_expr(locptr->x); 

*y = do_expr(locptr->y): 

| 

| 
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/* FUNCTION: do action. list) */ 

/* PURPOSE: execute actions in action list */ 
ПАТЕР Ву start selected() «interp.c» */ 
/* RETURNS: void */ 

J=@ALLS: do_location() */ 

/* GLOBALS: Canvas canvas <interp.h> */ 
void do action list(action. node) 

struct actnode *action. node: 

( 

int dx, /* x coordinate of pixwin origin */ 
dy, /* y coordinate of pixwin origin */ 

dw, /* width of pixwin */ 

dh, /* height of pixwin */ 

ша таѕгегор */ 

Pixwin *pw — canvas, pixwin(canvas): 
ШЕСІ “image; 

char error msg[ILL ERRORMSOG. SIZE]; 


for (inbuflen z 0; inbuflen <2048: inbuflen++) 
inbuflinbuflen] 2 ^O; 
inbuflen = 0; 


#define REG_WIDTH (int) window get(canvas, WIN WIDTH)/3 
stdefine REG. HEIGHT (int) window. get(canvas, WIN HEIGHT)/3 
while (action. node !2 NULL). 

switch (action. node-»actioc)| 

case REG. ALL:( /* region 0 */ 

Pan Action in region ALL (code = жауа”. 

action. node-»actloc); 

dx =Q); 

ШЕГЕІТХЕ ТО КА5ТЕК Ү(1); | 

dw = (int) window. get(canvas, WIN WIDTH): 

dh - (int) window. get(canvas, WIN HEIGHT): 

break; 

j 

ESSREG-ONE:( /* region ] */ 

printf(^Action in region 1 (code = %d)\n", action_node->actloc): 
Их = 0: 

= СМЕ ТО КА5ТЕК Ү(1); 

dw - REG. WIDTH; 

l REG HEIGHT: 


I 


break; 

| 

case REG. TWO:| 

printf( Action in region 2 (code 2 ауа”, action_node->actloc); 
dx 2 REG. WIDTH; 
dy LINE TO RASTER  Y(1); 
dw = REG_WIDTH; 
dh 2 REG. HEIGHT; 

break; 

j 

case КЕС_ТНКЕЕ:{ 

printf( Action in region 3 (code = фајл. аспоп_поде->асПос): 
dx=2* REG M IDTI[ 
dy 2 LINE TO RASTER Y(1); 
dw 2 REG. WIDTH; 
dh = REG HEIGHT. 

break; 

| 

case REG FOUR. 

рїї Acuon in region 4 (code = %dìn”, action_node->actloc); 
ax =. 
dy = REG _ HEIGHT + ЕТО RA TERS 
dw = REG WIDTH; 
dh = REG HEIGHT.: 

break; 

| 

case REG FIVE! 

printf( Action in region 5 (code = фајл, аспоп_поде->ас ос); 
dx = REG_WIDTH,; 

dy = REG. HEIGHT + LINE Период ЕРЕ 1 

dw = REG_WIDTH; 

di = RECGTFHE IGHT. 

break; 

) 

case REG_SIX: Í 

printf( Action in region 6 (code = фајл, аспоп_поде->ас ос): 
dx=2*REG WIDTII: 

dy 2 REG, HEIGHT + LINE TO RASTER Y(1); 

dw REG. WIDTH; 

dh 2 REG. HEIGHT; 

break: 


) 
case REG ЗЕЕ: 
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printf( Action in region 7 (code29t dNY , action. node-»actloc); 
abo. 

NE REG HEIGHT + LINE TO RASTER. Y(1); 

dw - REG. WIDTH; 

j PEG HEIGHT; 

break; 

) 

Case REG EIGHT: { 

рапії Аспоп in region 8 (code=%d)\n”’, action_node->actloc); 
ша- REG WIDTH: 

ВЕ С REG HEIGHT * LINE TO RASTER. Y(1); 
dw REG. WIDTH; 
Ші КЕС НЕТОНТ; 

бгеак; 

| 

case REG. NINE:! 

printf( Action in region 9 (code2^t dw, action. node-»actloc): 
Nu» REG WIDTH; 
EX REG HEIGHT * LINE TO RASTER У(1); 
dw - REG. WIDTH: 
dh = REG. HEIGHT; 

break; 

) 

GJS SP EG OTHER: 

derauit: [ 

printf(“Unrecognized region code %dN1.action_node->actloc); 
) 

ie end Switch */ 


switch (action. node-»action)í 

case ACT DRAW:[ 

printf( "Drawn ); 

if (image - icon. load. mpr(action, node-»info str, 
error msg)) | 

do. location(action. node-»info loc, &dx, &dy): 
pw. write(pw, dx, dy, 64, 64, PIX SRC, image, О, 0); 
| 

else fprintf(stderr, "96swv1 , error msg): 

break; 

| 

ease ACT CLEAR:{ 

printf(^Clearn"); 

lüscchon- node--info str !- NULL) | 


Dre 


do location(action, node-»info loc, &dx, &dy); 
pw. writebackground(pw, dx, dv, 64, 64, PIX SRC); 
j 

else pw. writebackground(pw, dx - CHAR. TO RASTER X(1), 
dy - LINE TO RASTER Y(1), 

dw - CHAR. TO RASTER. X(1), dh, PIX SRC); 

break; 

| 

case ACT. WRITE:( 
do_write(dx,dy,dw,dh.action_node->info_str); 

break; 

} 

case ACT_INPUT:{ 

рип Стрип”); 

= 

iny = ау; 

pw writebackground(pw. dx - CHAR TO RASTER X(1). 
dy - LINE_TO_RASTER_Y(1), 

dw + CHAR_TO_RASTER_X(1), dh, PIX_SRC); 

break: 

j 

case ACT. PAUSE:( 

printf( Pausen); 

sleep(action  node-»info int); 

/* while (1s, pausing); set by pause. cleared by end, of pause */ 
break; 

j 

case ACT. QUIT:( 

printf( Quit); 

break; 

j 

case ACT DRAOG:| 

printf(“Drag\n’): 

break; 

} 

} /* End switch */ 


action node - action. node-»next: 
| /* End while */ 


/* test for only no-user-action responses & set up for seconds */ 


J 
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—--———— as: — - 


ПИВ ке кекке вже ж жж ЖЖ жжжжжжжж ж ж ж f 
USSUNCTION: do. response list() */ 

/* PURPOSE: execute actions in response list */ 

ШФАТГЕР BY: input events) */ 

foe TURNS: int */ 

ISO SII S:create assert list «do assert liste */ 

/* GLOBALS: current, state «interp.c», inbuf, inbuflen */ 


ТЕКО КЖ ЖЖ ЖЕ ЖЕ ЖЖ О ЖЖЖЖЖХ / 


int do response list(response node, res code) 
struct resnode *response node; 

int res_code; 

( struct resnode *cur 2 response, node: 
int retval 2 0; 

printf( testing £6dNY res. code): 

while (cur != NULL){ 

ште code 22 RES. NULL. | 

/* evaluate expression */ 

| 

Сиси (тез code —- cur-»expr-»res act) | 
/ evaluate and test event */ 

} 

if (retval) { 

if (cur->label != NULL) 

create assert list(current state-»nodeid, 
cur->label); 

Current_state = cur->node; 

oor = NULL: 

} 

mee cur = cur->next: 

w End while */ 

return retval; 


} 


/* FUNCTION: input events() */ 

/* PURPOSE: handle events and call for response evaluation */ 
/* CALLED BY: detine-base-canvasgeinteno ии 

/* RETURNS: void */ 

/* CALLS: do response list do action list */ 

/* GLOBALS: current. state «interp.c» */ 


void input. events(window, event, arg) 
Window window; 

Event reveni. 

caddr_t arg; 

(int id 2 event. id(event); 

int rescode = КЕЗ МЫШ 


8define TEST RES(Opcode) ^ 
if (do response. list(current. state-»reslist, Opcode)) ^ 
do action list(current. state-»actlist) 


if (current state <= NULL P reina 


l Gd >= ASCII FIKST && id<= ASGIIL PAS Í 
i (char e == и | 
TEST RES(RES KEY): 

for (inbuflen2O; inbuflen«2048; inbuflen-4-) 

ао птен е 21). 

inbuflen=0; 

| 

else do_write(inx, iny, REG_ WIDTH, REG HEIGHT ambu 
| 

| 

TEST RESRES CLICKEE Ea) 

else TEST _RES(RESZ CLICK AN 

J 

else if (а == MS_MIDDLE) Í 
TEST_RES(RES_CLICK MID): 

else TEST_RES(RES_CLICKANY): 

} 

else dm id == у КІСЕН 
TEST_RES(RES_CLICKRIGHT): 

else TEST_RES(RES_CLICKANY); 

| 


We 


— = 


else if (id 22 LOC MOVE за == LOC DRAG іа == ПОС TRAJECTOR Y) { 
ШЕСІ: КЕ5(КЕ5 MOUSEMOVE): 

} 

} 


Js#FUNCTHON pu а | 

/* PURPOSE: start and monitor timer */ 
CALLED BY Жасоо к 

/* RETURNS: void */ 

CALES И 

/* GLOBAES: =) 


Notfy value pause time(client, which) 
Notify client client; 

int which; 

| 

printf(Entered PAUSE TIMEWM): 
printf(“%1 seconds\n”’, which); 

15 pausing = 0; 

return (NOTIFY_DONE): 

| 


void pause(time) 
int time; 
| 


Struct itimerval run. timer; 


printf( Entered PAUSE procedurew ); 

pnrntf( Length of timer is ZoNY', time); 

if ле Ем) у ке ИОС" 

152 рашзшо e 

/* set up interval with which to RELOAD the timer */ 
rün timer it interval t misce e 01 

run uümerit interval v ee S DICENDO D S 


/* set up INITIAL value with which to set the timer */ 
run timer.it value.tv. usec 2 Q; 
rüntimer.t маше се = Осу СТЕ, 


pnrntf( Calling set. itimer. func); 

/* turn on interval timer for client */ 
(void)notify. set 1timer. func(canvas, pause time, ITIMER REAL, 
&run, timer, ITIMER NULL): 

| 
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&include "interp.h" 


ин О О О АДА АДА А А О ОЉА О жж Ж ЖЖ ae EH i EO sk sk 3k f 
/* FUNCTION: create. assert. listÓ */ 

/* PURPOSE: create linked list of assert states and identifier */ 

ЗЕЕ] > BY: do response, list() */ 

/* RETURNS: void */ 

/* CALLS: find_assert_list() */ 

/* GLOBALS: struct assert *assert_list <interp.h> */ 


И ОВЕН ЖИ ЖЖ ЕЖЕ ЖЖ ЖЖ ЖЖ ЖКХ / 


struct assert *create assert. list(node, identifier) 
char *node, *identifier; 


| 


struct assert *tmp - assert list: 
char *temp 1d; 
int found < |; 


и Посаге space for temp id */ 
temp_id = (char *)malloc(strlen(node) + strlen(identifier) 
+ 1); 


/* put asserted state in proper format for comparison with past */ 
umdenufier */ 

strcpy(temp. id. node); 

Simeat(temp_id, “/”); 

strcat(temp 1d, identifier): 


Метар == NULL)( 

/* empty list, create first link */ 

assert_list = (struct assert *)malloc(sizeof(struct assert)); 
assert_list->id = temp_id; 

assert_list->next = NULL: 

} 

else { 

/* see if identifier already in assert list */ 
pantit. Before call Find, found = Wn”, found); 

found - find assert list id(assert list, temp. id): 
printf(“Just returned from FIND. FIND - 9ciNY. find. assert. list. id(assert. list, 


temp. id)); 


printf( Just returned from FIND. FOUND = &i\n’, found): 


if (ound =— 0) 

/* identifier not in assert list */ 

/* find end of list and add new link */ 
while (tmp->next != NULL){ 

tmp = tmp->next; 

| /* End while, end of assert list found */ 
/* create space in memory for new link */ 
tmp-»next = (struct assert*)malloc(sizeof(struct assert)); 
tmp = tmp->next; 

tmp-»id - temp. id; 

tmp->next = NULL; 

БЕСІ Т 

ГІЗ ЕП Се 


pant ASSERIT LIST FO TO Sg 
tmp - assert list: 

while (tmp != NULL){ 

printf( 6s", tmp-»1d); 

tmp - tmp-»next; 

| 


return(assert. list): 


) 
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ТАҒАТ СЫ АҒАН Р Ч АПК NUN C NE ДЕП eq 


/* FUNCTION: find_assert_list_idQ) */ 

fae ROSE: find given identifier in assert list */ 
Pome LED BY: create_assert_list() */ 
RETURNS: int */ 

ЧИМ] 

П ОЕОВАТ5: */ 


НЕНИ тт i лее Я Е К ККК ЗИ К ск Ж е Е М 


ИЕ о н аа е о гово о а 0 24 94 ака й 


int find. assert, list. id(list, target) 
struct assert *list; 
char *target; 


| 


int Status; 
printf( Begin FINDW); 
printf( "TARGET is: %s and ASSERT ID 1s: %s\n’, target, list->1d); 
if (Strcmp(list->1id, target) == Q){ /* found match */ 
printf(^Assert ID FOUND. Return 1 An”); 
сив = |; 
printf(“Returning %i\n", status); 

return (status); 

} 

else { 

eelist-onext == INULL){ /* end of assert list */ 

/* target not found */ 
printf(^Assert ID NOT FOUND and END OF LIST. Return 0n): 
status — (; 

printf( Returning £ciNY , status): 

return (status): 

J 

else( /* target nof found, move to next in assert list */ 
printf(“Assert ID NOT FOUND. Recursing. . An”): 
return find_assert_list_id(list->next, target); С 

} 

} 

} 
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APPENDIX F 
DATA STRUCTURE EXPLANATION 


Illustrations of thc menu and cfdgraph data structures appear in Figures 1 and 2, respectively, as visual 


menunode cfdnode 


choice See Figure 2 


FIGURE 1: menu Data Structure 





aids 


l. menu 


a. title 


A character string of the title of the tutorial. 


b. choices 


A pointer to a linked list of the utles of the start states to appear in the main menu. The 


choices pointer points to menunode. 
2 menunode 


а. choice 


A character string of the title of the main menu item. 
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b. state 


A pointer to the state (cfdnode) of that main menu item in the cfdgraph. The state pointer 


points to cfdnode. This allows the tutorial to go directly to that state within the cfdgraph. 


С next 


A pointer to the next menunode in the choices linked list. 
3.  cfdnode 


a. подей 


A character string identifying the state. 


b. ася 
A pointer to a linked list of the action list. The actlist pointer points to an actnode linked list 


data structure. 


c. reslist 


A pointer to a linked list of the response list. The reslist pointer points to a resnode linked 


list data structure. 


d. next 


A pointer to a linked list of nodes in the cfdgraph. The next pointer points to the next 


cfdnode created, not necessarily the next state. 
4.  actnode 


а. асос 


An integer represenüng the region id. The region id and their corresponding region codes 


are listed in the file parser.h found in Appendix D. 


b. action 


An integer representing the action in the action, node. The action codes are found in the file 


parser.h in Appendix D. 
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c. info str 
A character string argument for thc text to be displayed in the window or thc file namc of an 
icon. 
d. info int 
An integer representing the diffcrent input modes, such as mouse. The input modcs and the 
corrcsponding codes are found in thc filc parscr.h in Appendix D. 
e. info loc 
A pointcr to a linkcd list of the location arguments in the action list. The info. loc pointcr 
points to a locnode linked list data structure. 
f. next 


A pointer to a linked list of cach action in the action list. The next pointer points to actnode. 
5.  locnode 


a. х 


A pointer to a linked list data structure of the x coordinatc of a location in the window. The 


x pointer points to an expnode. 


b. v 


A pointcr to a linked list data structure of the y coordinate of a location in the window. The 


y pointcr points to an expnode. 
6.  expnode 


a. left 


A pointer to a linked list of the operands of an arithmetic expression. The left pointer points 


to expnode. 


b. right 


A pointer to a linkcd list of the opcrands of an arithmctic expression. The right pointer points 


to expnode. 


Ша 


с. ор 


A character representing the four arithmetic operators: +, -, * and /. 


d.  varname 


A character string of the argument mouseX, mouseY, the identifier for the icon file name or 


the variable name used in the arithmetic expression. Refer to Figures 4 and 5 for an example. 


(1, draw, mouse_sym@(mouseX, mouse Y)) 


expnode 


left= NUE 
right = NULL 
O = 
varname = mouseX 
actnode Оле сотр = ** 
мај = 
асос = 1 
асиоп = АСТ DRAW 
info, str 2 mouse sym.icon expnode 
info. int = 0 
info loc 2 leit] NORE 
right = је 
op = ° ° 
varname = mouse Y 
comp = ~~ 
val = Ü 


FIGURE 4: Example of varname 





e. comp 
A char specifying x, y, or blank. The x and y refer to identifier.x and identifier.y, 
respectively. Refer to Figures 4 and 5 for an example. 
f. val 


An integer representing the operand value in the expression. 


(1, clear, mouse_sym@(detector.x, detector.y)) 


expnode 


left = NULL 

псе = МЕ 

o 

varname = detector 
actnode ОНЕ сотр ех 

val O 

асПос = 1 

acuon ACT CLEAR 

info su - detector. sym.icon 
ШІО ІП -0 

info. loc 2 


expnode 


Eir NULE 

right = NULL 

op = é é 

varname z detector 
Comp = y 

npo 





FIGURE š: Another Example of varname 





7. | resnode 


a. expr 
A pointer to a tree representation of cach response in the response list. The expr pointer 


points to an opnode linked list data structure. 


b. label 


A character string for the identifier associated. with assert. When the actual assert list is 


created, the character “/` separates the statc and the label. For example, if the state = st_1] and the label = “left,” 


then the assert list identifier would be "st. Лец.” 


c. node 
A pointer to the state or node in the efdgraph to go to if the given response is received. The 


node pointer points to a cfdnode linked list data structure. 


— 
„ә 
„ә 


d. next 


A pointer to the next response in the response list. The next pointer points to a resnode linked list 


data strueture. 
8.  орподе 


a. left 


A pointer to the left node in a tree strueture of a response that ineludes logieal operators. The 
left pointer points to another opnode. Figure 20 illustrates one of the response events of state st 1. 1. 25 of 


the POST seript (Appendix B). 


b. right 


A pointer the right node in a tree structure of a response that ineludes logieal operators. The 
right pointer points to another opnode. Figure 6 illustrates one of the response events of state st, 1. 1. 25 of 


the POST seript (Appendix B). 


c. Operator 


An integer representing the logical operators. The logieal operators and their corresponding 


codes are listed in the file parser.h in Appendix D. 


d. res act 


An integer representing the response event. The response eodes are listed in the file parser.h 


found in Appendix C. 


e. res left 


A pointer to an arithmetic operation used in the relop or loc part of the grammar. The 


res left pointer points to an expnode. 


f. ves right 


A pointer to an arithmetic operation used in the relop or loc part of the grammar. The 


res right pointer points to an expnode. 


g. res int 


An integer for the integer argument in the response. node "seconds." 


(click-conunue & ((past st 1 6 25 helplpastst 1. 6 25 wrong, ans)) 


m 
сисК-сопипие | 


БИО 23 пер ч 16 25/мтопе апз 


орподе орподе 


kirs NULLE len = NUEL 

operator z OP NULL operator = OP NULL 
prre TTE aen = NOLE 

тез ас = RES (CLICK CONT ГЕСС = RES PASI 
res left res left 

opnode res right res right 

res int bese tnt 

Ee 1 res str О Пер 
operator = & 

ngh 

feseact = RES NULL 

тез left opnode opnode 

res right 

res int : Јер = NULL 

res str operator = OP_OR operator = OP_NULL 

righ nght = NULL 

res act=RES NULL res acl = RES PAST 
res_lefi res lelt 

res nght res right 

res int res int 

Са res str 2 st 6 25/wrong ans 








FIGURE 6: Response Event Data Structure 


ha КӨКСЕП: 


A character string represenung the identifier for past. 
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